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ABSTRACT 

A  matrix  treatment  of  eigenstructure  assignment  theory  as  applied  to  the 
generalized  linear  time  invariant  system  is  presented.  New  geometrical  interpretations 
of  the  constraints  on  selecting  desired  closed  loop  right  and  left  eigenvectors  as 
functions  of  the  open  loop  system  parameters  are  then  shown  to  give  qualitative 
measures  on  the  computational  complexity  of  selecting  the  vectors.  Numerical 
optimization  schemes  are  then  presented  which  satisfy  these  geometric  interpretations 
for  subsequent  encoding  of  an  interactive  eigenstructure  synthesis  program,  EIGEN'S. 
Robust  decoupling  controllers  are  then  synthesized  via  EIGENS.  A  new  theoretical 
application  of  eigenstructure  assignment  to  reconfiguring  damaged  digital  flight 
controllers  is  then  presented.  The  thesis  concludes  with  reconfigured  solution 
demonstrations  as  applied  to  the  F/A-18  aircraft. 
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I.  INTRODUCTION 


Modification  of  linear  or  non  linear  dynamic  system  behaviours  via  feedback 
control  of  either  the  estimated  or  observed  variable  or  the  dynamic  state  variable  is  a 
fundamental  tool  of  modern  control  engineering.  Such  desired  modifications  might 
include  [Ref.  Ij: 

a.  Stabilizing  otherwise  unstable  systems , 

b.  Decoupling  overall  system  response  to  plant  or  controller  noise , 

c.  Desensitizing  system  performance  as  a  function  of  plant  variations  ( robustness )  or, 

d.  Invoking  a  desired  transient  response  characteristic  and  modal  signature. 

For  linear  time  invariant  single  input  single  output  ( SISO )  systems,  calculation  of 
the  required  feedback  to  perform  one  of  these  desired  system  behaviours  is  relatively 
straight  forward  and  well  documented  [Refs.  2,3].  The  S/SO  static  feedback  problem  is 
additionally  characterized  by  a  specific  design  specification.  The  classic  pole  placement 
problem  for  example  results  in  solving  a  full  rank  linear  system  of  equations  for  the 
unknown  feedback  gains.  These  feedback  gains  will  then  invoke  a  set  of  closed  loop 
poles  which  in  turn  give  rise  to  specific  transient  behaviours.  Further  modification  of 
the  modal  behaviour  of  the  system  can  only  be  accomplished  through  a  different  set  of 
feedback  gains.  This  limited  degree  of  freedom  of  the  feedback  design  space  of  the 
classical  S/SO  dynamic  problem  can  additionally  be  interpreted  as  a  bound  on  what 
performance  specifications  one  can  designate.  Specification  of  additional  system 
modification  such  as  modal  decoupling  for  example  is  not  possible. 

Design  of  acceptable  feedback  compensations  for  linear  time  invariant  multi 
input  multi  output  ( MIMO )  systems  are  primarily  treated  by  state  space  solution 
techniques  of  modern  control.  As  modern  control  theory  can  also  treat  non-linear  and 
time  varying  dynamic  systems,  this  time  domain  approach  has  proved  successful  both 
computationally  and  analytically.  The  linear  quadratic  gaussian  ( LQG)  problem  is  a 
prime  example  of  a  successful  time  domain  solution  approach  (Refs.  4,5,6].  Frequency 
response  methods,  along  with  such  eigenvalue  design  approaches  as  characteristic  loci 
and  dyadic  expansions  and  non  -  eigenvalue  methods  as  the  inverse  Nyquist  array 
technique  have  also  been  noted  in  the  literature  [Ref.  7].  More  importantly,  the 


underlying  theme  in  all  these  design  methodologies  is  that  the  resulting  set  of  feedback 
gains,  F,  which  satisfy  a  singular  design  criteria  such  as  eigenvalue  placement, 
maximizing  a  multivariable  robustness  measure  [Ref.  8]  or  minimizing  a  particular 
quadratic  cost  function  [Ref.  9]  for  example,  is  not  unique.  This  non  uniqueness  of 
solution  ideally  allows  the  multivariable  controller  design  problem  to  be  formulated  for 
solution  by  numerical  optimization  techniques. 

Exploiting  the  specification  of  the  eigenvectors  of  a  MIMO  closed  loop  system 
via  numerical  optimization  techniques  is  the  prime  motivation  of  this  research.  Results 
include  the  following. 

a.  An  interactive  algorithm  for  eigenstructure  synthesis  and  analysis  of  MIMO 
systems. 

b.  An  analysis  of  both  left  and  right  eigenspaces  as  geometric  interpretations  of 
algebraic  restrictions  on  closed  loop  eigenvector  specification  published 
previously,  and 

c.  A  new  application  of  eigenstructure  assignment  to  reconfiguring  digital  flight 
controllers  for  a  class  of  damaged  llight  control  systems. 

Subsequent  to  a  discussion  of  previous  reported  research  in  eigenstructure 
assignment,  a  new  matrix  treatment  of  eigenstructure  theory  is  presented.  This  is 
followed  by  a  description  of  the  numerical  optimization  techniques  used  for  designing 
particular  multivariable  controllers.  Applications  of  these  numerical  techniques  to 
design  of  various  robust  decoupling  controllers  are  then  shown.  The  latter  part  will 
present  the  theoretical  framework  of  a  new  application  of  eigenstructure  assignment  to 
the  synthesis  of  reconfigured  digital  flight  controllers.  The  thesis  will  then  conclude 
with  reconfigured  solutions  for  specific  classes  of  damage  to  the  F-18  tactical  aircraft. 


II.  BACKGROUND 


The  following  state  variable  equations  define  the  linear  time  invariant  system 
used  throughout  this  thesis  for  the  continuous  time  domain.  The  state,  output,  and 
control  equations  are. 


x  *  Ax  + 

Bu  +  Gj8 

(eqn  2.1) 

y  =  Cx  + 

Du 

(eqn  2.2) 

u  ■  Fy  + 

G25 

(eqn  2.3) 

where  each  vector  is  defined  as  elements  of  the  following  vector  spaces, 


X  € 

(eqn  2.4) 

V  6  0il 

(eqn  2.5) 

u  e  Mm 

(eqn  2.6) 

de&c 

(eqn  2.7) 

The  individual  system  matrices  are  defined  as  follows, 

A  =  n  x  n  plant  matrix 

B  *  nxm  control  matrix 

Gj  =  n  x  c  feed  forward  command  state  matrix 

C  “  /  x  n  output  matrix 

D  *  /  x  m  feed  forward  output  matrix 


F  =  m  x  /  feedback  gain  matrix 

G2  =  m  x  c  feed  forward  command  input  matrix 

The  flexibility  afforded  by  eigenstructure  assignment  to  design  of  linear  time 
invariant  MIMO  state  feedback  controllers  has  been  well  documented  since  the  mid 
1970's.  Moore  [Ref.  10]  defined  this  flexibility  of  design  beyond  specification  of  closed 
loop  eigenvalues  in  terms  oi  allowable  sets  of  closed  loop  eigenvectors  for  systems  with 
distinct  eigenvalues.  In  addition,  he  demonstrated  that  for  those  eigenvalues  which 
were  invariant  under  state  feedback  ( uncontrollable ),  design  freedom  of  eigenvector 
specification  still  existed  without  rigorous  constraints.  During  the  same  research 
period,  Srinathkumar  [Ref.  11]  showed  that  for  controllable  systems  with  n  states  and  m 
inputs ,  n  closed  loop  eigenvalues  and  ’ m  x  n'  elements  of  the  corresponding  eigenvector 
matrix  may  be  arbitrarily  specified.  A  key  additional  constraint  is  that  no  more  then 
'm'  elements  of  each  individual  eigenvector  may  be  specified  simultaneously.  Klein  and 
Moore  [Ref.  12]  extended  the  results  of  Moore  [Ref.  10]  to  include  systems  with  a  given 
set  of  non-distinct  eigenvalues.  The  algorithm  presented  by  these  researchers  enables  a 
designer  to  invoke  an  allowable  closed  loop  Jordan  eigenstructure  via  state  feedback. 

For  MIMO  systems  employing  output  feedback.  Srinathkumar  [Ref.  13]  presented 
an  eigenstructure  design  theorem  that  has  become  a  foundation  for  many  researchers 
engaged  in  analysis  of  such  MIMO  systems.  Restated  here, 

for  systems  with  'm'  inputs  and  Y  outputs ,  max  ( m.I)  closed  loop  eigenvalues 
can  be  specified  and  max  ( m,l)  eigenvectors  or  reciprocal  vectors  by  duality 
can  be  partially  assigned  with  min  (m,l)  elements  of  each  eigenvector  specified. 

As  the  analytical  treatment  of  eigenstructure  assignment  became  familiar, 
subsequent  workers  began  to  explore  applications  to  some  existing  design  problems. 
Two  examples  are  noted.  Sebakhy  and  Abdel  -  Moneium  [Ref.  14]  presented  an 
algorithm  for  computing  state  feedback  gains  which  invoked  minimum  time  responses 
(deadbeat  controllers)  for  multivariable  linear  discrete  time  systems  which 
simultaneously  allowed  the  designer  flexibility  in  selecting  the  closed  loop  eigenvectors. 
Klein  [Ref.  15]  provided  guidelines  for  constructing  state  feedback  decoupling 
controllers  which  are  robust  to  small  perturbations  by  means  of  an  eigenvector 
approach.  Noteworthy  in  this  work  is  the  use  of  geometrical  interpretations  [Ref.  16] 
to  analysis  of  the  allowable  closed  loop  design  space  as  functions  of  open  loop 
parameters. 


Andry,  Shapiro  and  Chung  [Ref.  17]  extended  the  analytical  work  in 
eigenstructure  assignment  by  investigating  the  constrained  output  feedback  case.  By 
assigning  fixed  zeroes  to  specified  feedback  gain  elements,  they  noted  that  engineering 
flexibility  is  gained  by  the  designer  in  terms  of  being  able  to  compute  a  spectrum  of 
satisfactory  controllers.  This  enables  one  to  compare  the  entire  range  of  controllers 
(full  state  feedback  through  constrained  output  feedback)  with  respect  to  performance, 
cost,  and  reliability. 

Magni  and  Herail  [Ref.  18]  presented  methods  which  invoke  disturbance 
decoupling  via  output  feedback.  These  researchers  used  the  design  freedom  of 
eigenvector  specification  to  minimize  the  norm  of  the  transfer  matrix  between  the 
particular  disturbance  and  the  controlled  state  variables.  This  in  effect  attenuated  the 
particular  disturbance  in  the  resulting  system  response.  They  applied  these  results  to 
an  aircraft  gust  alleviation  (1  -  cosine)  problem  with  some  success. 

Eastman  and  Bossi  [Ref.  19]  generalized  the  linear  quadratic  gaussian  eigenvalue 
placement  technique  of  Solheim  [Ref.  20]  to  include  specification  of  the  allowable 
closed  loop  eigenvectors.  An  iterative  algorithm,  eigenvector  specification  was 
accomplished  by  manipulating  the  geometric  structure  of  the  Ricatti  matrix  at  each 
iterative  stage. 

Numerical  methods  for  computing  robust  state  feedback  gains  as  explicit 
functions  of  the  closed  loop  eigenstructure  were  presented  by  Kautskv,  Nichols,  and 
Van  Dooren  [Ref.  21].  Noteworthy  in  this  work  is  the  exploitation  of  an  established 
matrix  factorization,  the  singular  value  decomposition  (SFZ>)  [Ref.  22].  Through  the 
use  of  SVD  these  authors  arrived  at  an  expression  for  full  state  feedback  gains  as  an 
explicit  function  of  the  closed  loop  eigenstructure.  In  this  thesis,  an  extension  of  their 
analysis  to  the  output  feedback  case  involving  the  closed  loop  left  (or  dual) 
eigenvectors  will  be  presented. 

Of  the  several  analytical  works  which  focus  on  eigenstructure  assignment  for 
linear  dynamic  systems,  mention  should  be  made  of  the  paper  by  Sobel  and  Shapiro 
[Refs.  23,24].  A  two  part  work,  Part  I  [Ref.  23]  presents  eigenstructure  assignment 
theory  in  a  tutorial  fashion.  Part  II  [Ref.  24]  presents  informative  applications  to  flight 
control  design  via  output  and  constrained  output  feedback  controllers  which  were  to 
meet  specified  modal  structures. 

Several  recent  authors  have  continued  the  research  of  applying  eigenstructure 
assignment  theory  to  linear  state  feedback  design.  Mielke,  Carraway,  and  Marefat 
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[Ref.  25]  presented  an  interactive  design  algorithm  using  the  classic  results  of 
Srinathkumar  [Ref.  13]  and  [Ref.  10]  while  Liebst  and  Garrad  [Ref.  26]  applied  the 
work  of  Andry,  et.  al.  [Ref.  17]  to  aircraft  flutter  control  and  gust  alleviation  problems. 
White  and  Speyer  [Ref.  27]  presented  innovative  results  of  the  application  of 
eigenstructure  assignment  to  failure  detection  filters,  a  type  of  observer. 

Recent  analytical  research  in  eigenstructure  theory  has  centered  on  subspace 
charactenzations  of  the  allowable  sets  of  closed  loop  eigenvectors.  Fletcher.  Kautsky, 
Kolka.  and  Nichols  [Ref.  28]  arrived  at  explicit  expressions  of  feedback  gains  as 
functions  of  right  and  left  eigenstructures.  This  paper  provided  the  initial  motivation 
to  examine  the  increased  eigenvector  constraints  imposed  by  output  feedback  in  terms 
of  the  dual  constraints  on  the  allowable  left  eigenvectors.  Sogaard-Anderson, 
Trostmann,  and  Conrad  [Ref.  29]  characterized  the  sets  of  allowable  right  and  left 
eigenvector  sets  in  terms  of  residual  subspaces  defined  by  the  matrix  residuals 
associated  with  the  desired  closed  loop  eigenvalues.  This  work  however,  did  not 
explicitly  examine  the  left  eigenvector  sets  as  members  of  a  particular  subspace.  This 
thesis  will  examine  such  a  membership. 

In  this  thesis,  research  objectives  were  accomplished  in  two  phases.  The  initial 
phase  concentrated  on  the  coding  of  an  interactive  eigenstructure  design  algorithm 
( EIGENS)  for  linear  dynamic  systems  with  no  restrictions  as  to  state  or  output 
feedback  [Ref.  30].  Applications  of  the  algorithm  to  design  of  robust  decoupling 
controllers  were  successfully  performed  on  the  CH-47  helicopter.  Further  application 
to  design  of  a  decoupling  output  controller  for  the  L-1011  transport  was  also 
accomplished  through  execution  of  the  EIGENS  algorithm.  The  latter  phase  of  the 
research  entailed  developing  geometrical  interpretations  of  the  restrictions  of  choosing 
allowable  right  and  left  eigenvectors,  innovating  a  new  application  of  eigenstructure 
assignment  to  reconfiguring  digital  flight  controllers ,  and  an  application  of  this  new 
concept  to  the  F/A-18  tactical  aircraft.  Let  us  now  turn  to  developing  the  necessary 
eigenstructure  theory  for  linear  dynamic  systems  for  use  throughout  the  thesis. 
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III.  EIGENSTRUCTURE  THEORY  FOR  LINEAR  TIME  INVARIANT 

SYSTEMS 


A.  PRELIMINARIES 

1 .  The  Singular  Value  Decomposition 

Matrix  and  vector  notation  used  throughout  this  thesis  is  noted  :n 
APPENDIX  A.  The  matrix  singular  value  decomposition  and  the  matrix  pseudo  - 
inverse  are  reviewed  below. 

Consider  a  matrix  B,  where  B  e£9nxm.  The  singular  value  decomposition 
(SVD)  of  B  is  defined  as  [Ref.  22], 

B  *  Ub-bVbT  (eqn  3.1) 

T 

where  Ub  and  are  orthogonal  matrices  of  order  n  and  m  respectively.  The  matrix 
Lb  is  a  diagonal  matrix  of  the  singular  values  of  the  matrix  B. 

Ib  =  diag(<Tj,<y2 . <Jp)  (eqn  3.2) 


where  p  is  min(n,m). 

Additionally,  the  singular  values,  <y.,  are  commonly  defined  in  terms  of  the 

T 

spectrum  of  BB  such  that, 

<Tj(B)  =  V^(BBT)  (eqn  3.3) 

In  the  arguments  which  arise  in  this  thesis,  the  following  block  form  of 
equation  3.1  will  be  used  extensively  for  full  rank  matrices  where  n  >  m. 


B  -  ^bo  Ubl> 


where  O  denotes  a  null  matrix  and  Zb  is  defined  by 


(eqn  3.4) 


Since  it  is  assumed  that  B  is  of  full  rank,  note  that  Eb  is  now  a  square  mxm 
matrix  where  the  null  blocks  of  equation  3.2  have  been  disregarded.  In  all  the 


following  discussions,  Eb  will  be  assumed  to  be  square.  The  linear  space  dimensions  of 
the  block  matrices  are  shown  below. 


Ubo  €  .#nxm 

(eqn  3.6 ) 

ubl  €  ^nx(n-m) 

(eqn  3.7) 

Zb  e 

(eqn  3.S) 

<D  g  ^(n-m)xm 

(eqn  3.9) 

Note  that  for  non  -  singular  square  matrices,  L'bl 
3.4  reduces  to 

does  not  exist  and  equation 

B  =  T'bZb  =  Ub0Zb 

(eqn  3.10) 

Useful  identities  associated  with  the  matrix  singular  value  decomposition  are 

noted  below. 

0|  a.,.<ir>ffr+ 1  -  ...  =  o 

(eqn  3.11) 

where  r  =  rank(B). 

»1<B>  =  "max*6* 

(eqn  3.12) 

»,<B>  *  <WB> 

(eqn  3.13) 

IIBIIj  *  <J,(B) 

(eqn  3.14) 

For  square  matrices,  where  B  e  0%™^,  the  two  norm  condition  number  of  the 
matrix  B,  k2(B),  is  defined  as, 

K2(B)=<J1(B)/<Tn(B)  (eqn  3.15) 

2.  The  Matrix  Pseudo  Inverse 

The  matrix  pseudo  inverse,  often  referred  to  as  the  generalized  inverse,  is 
defined  in  the  least  squares  sense  in  the  following  way.  For  the  matrix  B  e  the 

pseudo  inverse,  B  + ,  is  the  unique  Frobenius-nomi  solution  to, 


min  ||  BB"1"  -  Ifl  [|  p  (eqn  3.16) 

Additionally,  B+  satisfies  the  classic  Moore  -  Penrose  conditions, 

BB  +  B  =  B  (eqn  3.17) 

B  +  BB+  =  B+  (eqn  3.18) 

(BB  +  )T=B  +  B  (eqn  3.19) 

(B  +  B)T=B  +  B  (eqn  3.20) 

In  this  thesis,  the  singular  value  decomposition  will  be  used  to  define  the 
matrix  pseudo  inverse  in  the  following  way  [Ref.  31]. 

B+  -  VbSb-'ub0T  (eqn  3.21) 

where, 


B+  6^mxn 


(eqn  3.22) 


It  can  be  shown  that  equation  3.22  satisfies  the  Moore  -  Penrose  conditions. 
Proof  of  equality  for  equation  3.17  is  shown  below.  Substituting  the  expression  from 
equation  3.21  into  equation  3.17  yields, 


BB  +  B  -  (fbolbVbTXVbSb-luboT)(UboSbVbT) 


(eqn  3.23) 


Since. 


V  Ty  =  i 
vb  vb  ‘m 


(eqn  3.24) 


and, 


^bo  ^bo  *m 


(eqn  3.25) 


then  equation  3.23  reduces  to, 


B.  THE  GENERALIZED  FEEDBACK  EXPRESSION  FOR  LINEAR  TIME 

INVARIANT  SYSTEMS 

Kautsky,  Nichols,  and  Van  Dooren  [Ref.  21]  published  the  development  of  an 
expression  for  state  feedback  gains  as  an  explicit  function  of  a  desired  closed  loop 
eigenstructure.  The  following  general  derivation  follows  closely  that  of  Kautsky  et.al. 
by  expanding  their  results  to  include  the  output  feedback  case.  Generalized  in  this 
thesis  is  interpreted  to  include  output  feedba  with  the  existence  of  feed  forward  loops 
in  che  system.  Full  state  feedback  or  output  feedback  without  feed  forward  then 
become  specific  cases  of  the  final  expression. 

Consider  the  linear  MIMO  system  comprised  of  n  states ,  m  inputs ,  and  l  outputs 
with  output  feedback, 


x  =  Ax  +  Bu 

(eqn  3.30) 

v  =  Cx  +  Du 

(eqn  3.31) 

u  =  Fy 

(eqn  3.32) 

The  classical  eigenvalue  placement  problem  written  in  vector  form  arises  from 
combining  equations  3.30,  3.31,  and  3.32  in  the  following  fashion.  Combining 

equations  3.31  and  3.32  yields, 

u  =  FCx  +  FDu  (eqn  3.33) 


and  rearranging  yields. 

(Im  -  FD)u  =  FCx  (eqn  3.34) 

Assuming  (Im  -  FD)  is  not  singular  one  pre  multiplies  equation  3.34  by  (I  - 
FD)'^  yielding. 


u  =  dm  -  FD)*]FCx 


(eqn  3.35) 
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Substituting  equation  3.35  into  equation  3.30,  one  has 

x  =  Ax  +■  B{(Im  -  FD)*lFC}x  (eqn  3.36) 

Upon  application  of  an  appropriate  similarity  transformation,  equation  3.36  may 
be  written  in  terms  of  the  closed  loop  system  eigenvectors,  x-,  and  eigenvalues.  X- 
[Ref.  2],  as  follows. 

XjX;  =  AX;  +  B{(Im  -  FD^FC}  x;  (eqn  3.37) 

In  matrix  form,  equation  3.37  becomes, 

XAX1  =  A  +  B(Im-  FD^FC  (eqn  3.33) 

where  A  is  the  diagonal  matrix  of  closed  loop  eigenvalues  and  it  is  implicitly  assumed 
that  the  eigenvector  matrix,  X,  is  composed  of  linearly  independent  columns. 
Subtracting  A  from  both  sides  of  equation  3.38  yields. 

B(Im  -  FD)*lFC  =  XAX*1  -  A  (eqn  3.39) 

Now  by  exploiting  the  singular  value  decompositions  of  B  and  C  where. 

B  -  Ubo-bVbT  -  UboZ  b  (eqn  3-J0) 

and. 

C  -  W,' T  -  UcoZ  0  (eqn  3.41) 

equation  3.39  becomes, 

LboZb('m  •  FD)  ‘FUC„Z c  -  XAX-'  -  A  (eqn  3.42) 

Appropriate  pre  and  post  matrix  multiplication  of  equation  3.42  yields, 

<1  ■  FD)-'F  =  Zh-'u  T  (XAX-1  -  AlZ-'tJ 


(eqn  3.43) 


and  an  additional  pre  matrix  multiplication  of  equation  3.43  by  by  (I  -  FD)  results  in, 


F  =  (Im  -  FD)Zb*1Ub0T(XA  X-1  -  A)Zc*IUcoT  (eqn  3.44) 

Let  us  now  define  the  eigenstructure  matrix  L ,  as, 

L  =  i  XAX'1  -  A)  '  eqn  3.45) 

Rearranging  equation  3.44  with  the  substitution  of  equation  3.45  yields. 

F  +  FD(Zb-|UboLZc-1UcoT>  =  Zb1LboTLZc-1UcoT  (eqn  3.46) 

Now  define  O  as, 

Q  ’  Zb-'L'bJt-ZA'eo  T  3.4*) 

Then  equation  3.46  becomes, 

F(Im  +  °Q)  *  Q  (eqn  3-48) 


and  appropriate  post  matrix  multiplication  of  3.48  yields  the  following  general 
expression  for  the  least  square  output  feedback  gain  matrix,  F,  as  a  function  of  a 
desired  closed  loop  eigenstructure,  XAX**. 

F  =  Q{Im  +  DQ)*1  (eqn  3.49) 

Note  that  the  right  hand  side  of  equation  3.49  is  a  function  of  the  pseudo 
inverses  of  B  and  C 1  expressed  in  equation  3.47  .  The  feedback  gain  matrix,  F, 
therefore  is  computed  based  on  these  least  square  solutions.  As  such,  F  will  invoke  the 
desired  closed  loop  eigenstructure  ,Y  and  A.  in  the  least  square  sense.  For  systems 
where  the  number  of  states,  inputs,  and  outputs  are  identical,  then  the  solution 
becomes  exact.  As  the  number  of  inputs  and  outputs  vary,  then  the  solution  becomes 
inexact  by  the  nature  of  the  pseudo  inverse.  This  is  a  numerical  interpretation  of  the 
classic  restrictions  on  the  desired  eigenstructure  presented  by  Srinathkumar  (Ref.  11]. 


A  proof  of  this  result  using  the  matrix  equations  presented  in  this  thesis  is  shown  in 
Appendix  B.  Equation  3.49  is  therefore  more  correctly  termed  the  least  square  solution 
for  the  feedback  gains,  F.  It  is  this  solution  which  was  used  for  the  results  presented  in 
this  thesis. 

Up  to  this  point,  no  restrictions  have  been  placed  on  the  desired  right  eigenvector 
matrix,  ,Y,  other  than  the  right  eigenvectors  must  form  a  linearly  independent  set. 
Additional  restrictions  on  the  right  eigenvectors  are  shown  in  the  following 
development.  Rewriting  equation  3.39  in  block  form  yields. 


hb0L'b,TZb1(Im-FD)'1FC  -  XAX-'-A 


(eqn  3.50) 


T 

Pre  multiplying  both  sides  of  3.50  by,  {L'bo  L:bl}  one  has. 


-  FDflFC  = 

AoT- 

_tp_ 

-LblT- 

(XA  X*1  -  A) 


(eqn  3.51 ; 


Upon  multiplying  equation  3.51  by  -1,  one  has  the  following  relationship 
resulting  from  the  lower  block. 


(D  =  U‘blT(A  -  XAX*1) 


(eqn  3.52) 


Equation  3.52  is  the  matrix  relationship  [Ref.  21  j  from  which  the  subspace  constraint 
on  each  right  eigenvector  may  be  obtained.  This  subspace  constraint  is  repeated 
below. 


x.€N{UblT(A.X.In)}  (eqn  3.53) 

where  N  denotes  null  space.  Equation  3.53  is  the  only  subspace  restriction  on  the 
desired  linearly  independent  right  eigenvectors  for  the  full  state  feedback  case. 

The  dimension,  d(  ),  of  this  particular  subspace  hereafter  referred  to  as  the  right 
eigenspace,  can  be  defined  in  the  following  way.  Denoting  Ker  P  as  the  kernel  or  null 
space  and  Im  P  as  the  image  or  range  space  of  a  mapping  operator  P;  one  has  the 
identity  [Ref.  16] 


d(X)  =  d(Ker  P)  +  d(Im  P) 


(eqn  3.54) 


where  Im  P  =  PX.  In  this  case,  X  is  the  n  -  dimensional  state  space  spanned  by  the 
linearly  independent  right  eigenvectors.  Solving  equation  3.54  for  d(Ker  P),  one  has, 

d(Ker  P)  =  n  -  d(Im  P)  (eqn  3.55) 

Since  d(Im  P)  is  also  defined  as  the  rank  of  P,  one  may  rewrite  equation  3.55  as. 

d(Ker  P)  =  n  -  rank(P)  (eqn  3.56) 

Substituting  the  right  eigenspace  operator  for  P  now  results  in  a  definition  for  the 
dimension  of  the  right  eigenspace, 

d(Ker(UblT(A  -  X^)})  =  n  -  rank(L’blT(A  -  X^)}  (eqn  3.56) 

and  since, 

rank(Ubl"^(A  -  XTn)}  =  n  -  m  (eqn  3.58) 

for  full  rank  control  (rank(B)  =  m)  matrices,  one  has  the  following  result, 

d(N{L'MT(A  -  X.In  )})  =  m  (eqn  3.59) 

where  Ker  has  been  replaced  with  the  original  notation  for  the  null  space  operator,  N. 

Therefore,  the  allowable  right  eigenvector  Xj,  must  be  a  member  of  an  m 
dimensional  null  subspace  defined  by  equation  3.53  .  Note  further  that  for  a  rank 
degenerate  control  matrix,  B,  the  subspace  likewise  becomes  dimensionally  degenerate. 

It  will  now  be  shown  that  in  the  presence  of  output  feedback,  an  additional 
restriction  of  the  left  eigenvectors  results  from  a  similar  analysis.  In  order  to  show  this 
additional  restriction,  let  us  initially  assume  the  feed  forward  matrix,  D  to  be  identically 
null  which  is  the  case  of  output  feedback  without  the  addition  of  transmission  or 
blocking  zeroes.  There  is  no  loss  of  generality  with  this  assumption.  In  this  case, 
equation  3.48  reduces  to, 


and  substituting  the  expression  for  L  yields, 


F  *  •  A)  ZAJ  (eqn  3.61) 

with  the  constraint  that  each  right  eigenvector  is  a  member  of  a  specific  null  space  as 
expressed  by  equation  3.53  . 

Pausing  briefly,  note  that  if  one  assumed  all  the  states  were  available  for 
feedback,  where  the  output  matrix,  C,  becomes  ln.  equation  3.ol  reduces  to  the 
expression  shown  previously  [Ref.  21], 

F  “  -  A>  (eqn  3.62) 

Comparing  equations  3.62.  3.61.  and  3.4S.  one  notes  the  increased  cost  in 
computing  F  when  proceeding  from  full  state  feedback  to  output  feedback  with  feed 
forward  control. 

Let  us  now  return  to  analyzing  the  impact  of  output  feedback  on  the  left 
eigenvectors  by  transposing  equation  3.38  with  D  identically  null. 

-CTFTBT  =  AT  -  X*TATXT  (eqn  3.63) 


Now  using  the  following  definition  [Ref.  22]  of  the  left  eigenvector  matrix,  T, 


T  -  X*T  (eqn  3.67) 

equation  3.66  becomes, 

<P  =  L’ctlT(AT  -  TATT-^  (eqn  3.681 

and  since, 

A  =  A"1"  (eqn  3.69) 

the  final  matrix  expression  for  equation  equation  3.66  becomes, 

4>  -  UctlT(AT  -  TAT*1)  (eqn  3.70) 

Post  multiplying  equation  3.70  by  T  yields, 

OT  =  UctlT(ATT  -  TA)  (eqn  3.71) 

and  in  vector  form, 

{0}  =  UctlT(AT-X.}In)tj  (eqn  3.72) 

and  hence  for  the  output  feedback  case,  the  ith  left  eigenvector  must  be  a  member  of 
the  following  null  space, 

ti6N(Uc,,T(AT.XiIn)}  (eqn  3.73) 

It  can  be  similarly  shown  that  the  dimension  of  this  space,  defined  as  the  left 
eigenspace ,  is, 

d(N(UctIT{AT ->,;})}  =  /  (eqn  3.74) 

when  the  output  matrix  C  is  full  rank. 


) 

I 


To  summarize  for  the  output  feedback  case  without  feed  forward  control,  the 
feedback  gain  matrix,  F,  is  explicitly  defined  by  equation  3.61  with  equations  3.53  and 
3.73  placing  constraints  on  the  right  and  left  eigenvectors  respectively.  Additionally 
note  that  for  the  full  state  feedback  case  where  C  =  I  ,  there  is  no  restriction  on  the 
left  eigenvector,  t.(  since  L'ctj  does  not  exist  and  any  left  vector  would  satisfy  equation 
3.71  .  Similarly  note  that  for  the  full  state  feedback  case  where  rank(B)  is  n,  or  for  the 
system  with  n  inputs ,  there  is  also  no  subspace  constraint  on  the  right  eigenvector. 
Therefore  for  the  full  state  feedback  case  where  m  =  /»,  one  can  choose  any  n  linearly 
independent  set  of  closed  loop  right  eigenvectors  for  the  desired  closed  loop  modal 
structure. 

One  now  has  at  their  disposal,  constrained  explicit  expressions  for  calculating 
static  feedback  gains  which  invoke  a  desired  closed  loop  eigenstructure  in  the  least 
square  sense.  Table  1  summarizes  the  expressions  for  the  feedback  gains  along  with 
appropriate  eigenvector  constraints  for  each  feedback  scheme. 


TABLE  1 

FEEDBACK  EXPRESSIONS  AND  EIGENVECTOR  CONSTRAINTS 

Full  State  Feedback 

Fsf  -  Zb  luboT<XAX'1  -  A> 
xj  €  N{UblT(A  -  Xjln)} 

Output  Feedback  without  Feedforward  Control  Loop 
Fof  =  Zb'luboT<XAX‘1-A)Zc*ll-'coT 

Xj  e  N{L'blT(A  -  XjIn)J 

ti6N{UctlT(AT- Vn» 

Output  Feedback  with  Feedforward  Control  Loop 

FoIT  "  Fof^m  +  DFof)'1 
Xj  e  N{UblT(A  -  Xjln)} 
tieN{UctlT(AT-^In)} 


As  a  preface  to  the  ensuing  discussion,  let  us  examine  the  numerical  and  linear 
space  definitions  of  the  term  null  space.  Null  space  membership,  as  previously  defined 
by  equation  3.52  for  example,  will  not  be  exactly  satisfied  due  to  finite  precision 
arithmetic  and  system  modelling  uncertainty.  Defining  a  null  vector  as  £  and  a  null 
matrix  as  E,  where 


I  el  2  <  <  1 


(eqn  3.75) 


<Jj(E)  <  <  1  (eqn  3.76) 

allows  one  to  more  clearly  define  numerical  null  space  membership.  Therefore,  let  us 
account  for  computational  precision  by  defining  the  right  and  left  null  vectors,  £r-  and 
£ j-  as  follows. 


£ri  =  UbIT(A  -  \ln)  xi  (eqn  3.77) 

c/i  “  UctiT(AT  *  \la)  tj  (eqn  3.7S) 

Further,  assume  these  vectors  span  respective  right  and  left  null  spaces, 

Er  =  <£rl  £r2  -  £rn>  (ecln  3-79) 

E/  =  {£/i  E/2  —  £/n)  (ecln  3.80) 

where, 

Er  c  ^n-rank(B)  (eqn  3.S1) 

E/  c  ^n-rank(CT)  (eqn  3  82) 
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Finally  note  that  for  full  rank  B  and  matrices,  the  dimensions  of  the  right  and 
left  null  spaces  are  therefore, 

d(Ef)  -  n  -  m  =  p  (eqn  3.83) 


d(E^)  =  n  -  i  -  q  (eqn  3.84) 

These  dimensional  definitions  are  used  in  the  following  discussion  to  more  clearly 
define  the  algebraic  constraints  on  the  allowable  eigenstructure.  Let  us  now  continue 
with  such  a  discussion. 

C.  RIGHT  AND  LEFT  EIGENSPACE:  A  GEOMETRIC  INTERPRETATION 

The  algebraic  subspace  constraints  noted  previously  can  be  difficult  to  envision 
for  large  order  systems.  In  addition,  the  added  restrictions  on  the  allowable  right 
and/or  left  eigenvectors  as  one  progresses  from  the  full  state  feedback  -  full  rank 
control  matrix  system  to  a  constrained  output  feedback  -  rank  degenerate  control  or 
output  case  has  intuitive  geometrical  properties.  It  is  the  geometrical  implications 
imposed  by  the  algebraic  constraints  which  motivate,  in  part,  the  following  geometrical 
analysis. 

The  lattice  diagram  [Ref.  16]  has  proved  to  be  a  useful  device  to  depict 
geometrical  relationships  between  linear  vector  spaces.  The  following  geometrical 
relationships  are  implied  by  Figure  3.1. 

EjP  <=  cXn  (eqn  3.85) 


d(EjP)  <  d(3?m)  <  d(Xn)  (eqn  3.86) 

where  the  symbol  <=  denotes  subspace.  Equation  3.S6  states  formally  that  the 
dimension  of  is  less  than  the  dimension  of  Xn  and  the  dimension  of  EjP  is  less 
than  that  of  c%m. 


Let  us  now  assume,  that  Xn  represents  the  state  space  of  a  controllable  linear 
time  invariant  system  such  that, 

Xn  -  +  &2m  +  •••  ^nm  (eqn  3-87) 

As  there  are  non-unique  state  variable  representations  for  a  linear  time  invariant 
system,  there  may  be  several  linearly  independent  eigenvector  sets  which  are  abie  to 
span  the  state  space.  However  if  a  vector  is  chosen  from  each  of  the  m-dimensionai 
spaces  to  form  spanning  sets,  one  has  selected  particular  eigenvectors  which  are 
associated  with  particular  eigenvalues.  It  is  this  selection  process  which  will  be  invoked 
by  the  feedback  gain  equations  of  Table  I. 

Assume  further  that  for  each  subspace,  ^ ? ;m,  there  exists  a  mapping  operator, 
N'rj,  which  maps  a  vector  from  M  ™  into  £rjP,  a  numerical  null  vector. 

eriP  =  Nrixi  (e9n  188) 

Further  assume  that  any  p  of  these  null  vectors  span  a  right  null  space,  ErP, 
where, 

ErP  -  f£rlP  Er/  -  Ernp!  <e1n  3  S9» 

where  equation  3.89  has  included  all  n  right  null  vectors. 

The  subsequent  lattice  diagram,  denoted  as  the  Right  State  Space  Lattice  is 
shown  in  Figure  3.2. 

Clearly,  Nrj  can  be  taken  to  be  the  right  null  space  operator  defined  previously 
as, 

Nri  =  UblT(A  -  Xjln)  (eqn  3.90) 

and  Figure  3.2  geometrically  depicts  the  right  eigenspace  constraints  posed  by  state 
feedback.  The  dual  or  left  state  space  lattice  is  similarly  constructed  and  is  shown  in 
Figure  3.3. 

The  final  tool  in  constructing  the  total  lattice  diagram  is  to  geometrically  link  the 
relationship  between  Figures  3.2  and  3.3.  Let  us  define  an  operator  P,  such  that. 


(eqn  3.91) 
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P  -  X^X*1 

Therefore,  P  maps  the  right  eigenvector  matrix,  ,Y,  into  the  left  eigenvector 
matrix,  T,  as  follows. 


T  =  PX  =  X‘TX_1X  (eqn  3.92) 

and  one  may  now  map  the  allowable  n  right  eigenvectors  into  their  dual  left 
eigenvector  space. 

Likewise,  we  desire  to  develop  an  operator  which  will  map  the  right  null  vectors 
represented  by  equation  3.89  into  their  dual  left  null  space  vectors  represented  by  E^. 
For  each  ith  null  vector,  one  would  then  have, 

JjCji  =  «/j  (eqn  3.93) 

In  terms  of  the  ith  right  and  left  eigenvector,  equation  3.93  becomes. 

JiISrixi  “  N/ili  (eqn  3.94) 

Let  us  now  define  a  vector  Sj  as  the  ith  column  of  the  In  identity  matrix.  One 
may  therefore  write  an  expression  for  t-  as  follows, 

t-  =  Ts-  (eqn  3.95) 

Substituting  the  expression  for  T  from  equation  3.92  yields, 

tj  =  PXsj  =  Px-  (eqn  3.96) 

and  therefore  equation  3.94  becomes, 

J^N^x-  =  IN /iPxj  (eqn  3.97) 


Solving  for  Jj  yields, 

J:  -  (N/iPxiXNr.xi)  + 


(eqn  3.98) 


In  order  to  verify  that  equation  3.98  is  correct,  one  must  show  that  Jj  indeed 
maps  £fj  into  £[. 

Performing  the  mapping  yields, 


(N/iPxi){Nrixi)  +  (Nrixi) 


(eqn  3.99) 


Noting  that  <'Nri\j)  +  (Nnx-)  is  equal  to  scalar  unity  (1.0),  then  the  mapping  of 
equation  3.99  yields. 


NfiPXjd)  -  e« 


(eqn  3.100) 


and  Jj  maps  into  z^.  In  this  way,  one  may  map  the  'n'  Eri  null  vectors  into  the 
respective  'ri  left  null  vectors,  £^.  One  may  now  depict  the  total  space  lattice  diagram 
shown  in  Figure  3.4.. 

The  geometrical  constraints  on  the  allowable  right  and  left  eigenvectors  shown  in 
Figure  3.4  can  be  characterized  as  follows.  The  dimensions  of  the  right  and  left  null 
spaces,  Ef  and  E^  are  directly  related  to  the  rank  of  the  null  space  operators  Nf  and 
Nj.  For  example,  as  the  rank  of  Nr  decreases,  the  dimension  of  Ef  decreases.  Since 
the  right  eigenvector  Xj  must  be  mapped  into  £r  by  Nr-,  the  mapping  becomes  more 
geometrically  restrictive.  In  this  way,  an  increasing  geometric  constraint  is  placed  on 
the  right  eigenvector  Xj.  The  dual  is  true  for  the  left  eigenvector  t-.  One  may  state  the 
geometrical  constraints  in  the  following  way. 

Lemma  3.1:  The  expressions  of  Table  I  explicitly  define  static  feedback 
gains  which  will  invoke  a  closed  loop  right  eigenstructure,  XAX"  ,  iff  the 
right  eigenvectors,  x-,  which  reside  in  map  into  the  right  null  space  Er 
via  the  respective  null  space  operator  N^.  The  dual  vectors,  tj  must 
likewise  reside  in  and  map  into  E^  via  N^. 

The  concept  of  right  and  left  null  spaces  comes  about  when  one  numerically 
converges  on  an  allowable  eigenvector  by  allowing  the  vector  to  rotate  until  the 
respective  null  vector,  £,  becomes  small.  In  this  way  one  numerically  converges  on 
eigenvectors  which  are  members  of  c%jm  or  by  minimizing  a  norm  of  £f  or  Z/.  This 
solution  technique  was  used  in  this  thesis  and  provided  the  prime  motivation  for  these 
geometrical  discussions.  Figure  3.4  has  set  the  stage  for  geometrical  analysis  of  all  the 
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\  feedback  cases  to  be  presented.  Let  us  begin  with  the  state  feedback  case  as  it  is  the 

;  least  restrictive  with  respect  to  allowable  eigenstructure. 

|  Case  I:  Full  State  Feedback  (m  =  ri) 

\  In  this  case  the  diagram  reduces  to  a  single  node  for  each  eigenspace.  There  are 

\  no  restrictions  on  the  desired  vectors  other  than  linear  independence  and  the  feedback 

gains  which  will  invoke  such  a  closed  loop  structure  are  computed  via  equation  3.62  . 

I  Case  II:  Full  State  Feedback  (m  <  n) 

For  this  case,  one  has  an  initial  restriction  on  the  right  eigenvectors  but  none  on  the 
left.  Therefore  the  total  lattice  diagram  consists  of  Figure  3.5  with  subspace  inclusions 
for  the  right  eigenspace.  Note  the  dimension  of  EfP  defined  previously  by  equation 
3.83  .  By  comparing  Figures  3.5  and  3.6,  one  notes  the  first  level  of  restriction  with 
regard  to  the  allowable  closed  loop  eigenstructure. 

Case  III:  Output  Feedback  ( m  -  n,  l  =  n) 

Case  III  is  geometrically  identical  to  Case  I.  The  only  restrictions  are  that  the 
desired  closed  loop  right  and  left  eigenvectors  form  a  bi-orthogonal  set.  Figure  3.5 
depicts  the  appropriate  geometry. 

Case  IV:  Output  Feedback  (m  =  n,  I  <  n) 

For  this  case,  the  restrictions  lie  only  with  the  left  eigenvectors.  The  lattice 
diagram  is  the  dual  of  Figure  3.6  and  is  is  shown  in  Figure  3.7. 

This  concludes  the  decoupled  constraint  cases  and  exemplifies  the  ease  of 
solution  for  the  gain  matrix  which  will  invoke  desired  closed  loop  eigenstructures.  The 
coupled  cases  arise  for  systems  employing  output  feedback  where  both  the  number  of 
inputs  and  observations  are  less  than  the  order  of  the  state  space. 

Case  V:  Output  Feedback  {m  <  n,  l  <  rt,  m  =  D 
The  lattice  diagram  for  this  case  is  constructed  by  linking  Figures  3.6  and  3.7 
with  the  mapping  operator  P  and  is  depicted  in  Figure  3.8.  Note  from  equations  3.83 
and  3.84  that. 


d(Ef)  =  d(E^)  (eqn  3.101) 

and  therefore,  the  null  spaces  are  equidimensionai. 

Case  VI:  Output  Feedback  (m  <  n,  l  <  n,  m  <  1) 

The  lattice  diagram  of  Figure  3.8  remains  for  the  remaining  cases.  The  subtle 
distinction  between  Cases  V  and  Case  VI  however,  is  that  the  dimensions  of  the  left 
and  right  null  space  are  not  identical.  For  this  case, 
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which  implies  geometrically  that  the  right  eigenspace  constraint  is  more  easily  satisfied 
due  to  the  higher  dimension  of  the  right  null  space. 

Case  VII :  Output  Feedback  (m  <  n,  i  <  n,  l  <  m) 

Case  VII  is  the  dual  of  Case  VI.  since 

d( E [)  >  d(Er)  (eqn  3.103) 

Equation  3.103  implies  that  the  left  eigenspace  constraints  are  more  easily  satisfied 
than  those  of  the  right  eigenspace  due  to  the  higher  dimension  of  the  left  null  space. 
This  of  course  is  the  dual  of  Case  VI  in  that  the  major  computational  expense  will 
involve  converging  on  allowable  right  eigenvector  sets.  Cases  VI  and  VII  are  clearly 
computationally  more  difficult  to  solve  than  the  previous  cases.  The  quantitative 
interplay  between  the  right  and  left  eigenvector  sets  as  functions  of  the  open  loop 
parameters  remains  to  be  dearly  formulated.  The  attempt  here  was  to  show  the 
qualitative  interdependency  by  analyzing  what  was  found  to  be  true  during  the  course 
of  the  research.  It  will  be  shown  later  in  this  thesis  using  two  specific  examples  of 
Case  VI.  that  the  qualitative  interpretations  noted  above  are  correct. 

This  concludes  the  theoretical  treatment  of  eigenstructure  assignment  as 
presented  in  this  thesis.  Prior  to  discussing  some  applications  of  the  theory,  let  us 
reexamine  equations  3.77  and  3.78  As  noted  previously,  null  space  membership  of  the 
desired  dosed  loop  eigenvectors  has  been  the  central  theme  in  much  of  the  recent 
discussion.  One  must,  therefore,  numerically  devise  a  scheme  which  guarantees  such 
membership.  In  that  the  term  null  space  implies  convergence  to  a  zero  measure,  a 
candidate  for  such  a  scheme  would  clearly  involve  a  minimization.  Minimizing  a  norm 
of  the  right  null  vector  cf-  or  left  null  vector  for  example,  would  guarantee  such 
convergence.  The  mechanics  of  such  a  minimization  is  the  topic  of  the  final  chapter 
prior  to  presenting  results  of  applying  eigenstructure  assignment  to  some  existing 
control  problems. 


IV.  NUMERICAL  OPTIMIZATION 


A.  THE  AUTOMATIC  DESIGN  SYNTHESIS  (ADS)  PROGRAM 

The  use  of  numerical  optimization  techniques  as  an  engineering  design  tool  has 
matured  with  the  advent  of  higher  speed  digital  computers.  In  tandem  with  this 
growth  has  come  the  development  of  algorithms  and  design  strategies  [Ref.  32] 
available  for  a  wide  variety  of  particular  design  tasks.  Several  numerical  optimization 
techniques  and  strategies  are  resident  [Ref.  33]  in  compiled  Fortran  code  for  use  at  the 
Naval  Postgraduate  School.  In  effect,  the  Automatic  Design  Synthesis  code  can  be 
used  as  a  black  box  optimizer  for  a  wide  spectrum  of  disciplines.  It  is  not  the  purpose 
here  to  discuss  in  detail  all  the  numerical  algorithms  available  through  the  ADS  code, 
but  only  to  describe  the  general  design  philosophy  of  the  optimizer  and  to  overview  the 
particular  strategies  employed  during  the  course  of  the  thesis  research. 

A  general  purpose  code,  ADS  contains  algorithms  which  are  able  to  solve  the 
following  general  n-variable  constrained  minimization  problem. 

Minimize:  F(X) 

Subject  to: 

gj(X)  S0,j=  I,m  inequality  constraints 
h^(X)  =  0  ,  k  =  1,1  equality  constraints 
Xj*  ^.\j  »  i  =  t,n  side  constraints 

where  X  =  {Xj  Xi  ...  xn}  is  a  design  variable  vector. 

Convergence  to  a  minimum  value  of  the  function  F(X)  without  violation  of  the 
constraint  criterion  in  accomplished  via  the  following  iterative  scheme, 

X^+  1  =  X^  +■  aq*Sq+  1  {eqn  4.1) 

where, 

q  =  iteration  number 

S^  =  search  direction  vector 

* 

a_  =  scalar  weight  applied  to  the  search  direction 


The  user  is  afforded  flexibility  of  further  tailoring  the  optimization  scheme  by 
being  able  to  designate  any  of  the  following  three  components  of  the  ADS 
optimization  algorithm; 

a.  Optimization  strategies  such  as  Sequential  Unconstrained  Minimization 
Techniques  (SUMTf  or  Augmented  Lagrange  Multiplier  Methods  which  allow 
the  user  to  reformulate  the  objective  function,  F(X), 

b.  Search  Direction  computation  methods  such  as  conjugate  and  variable  metric 
first  order  methods  which  compute  S4  and. 

c.  One  dimensional  search  options  men  as  Goiden  Section  or  polvnomiai 
interpolation  methods  which  determine  the  magnitude  of  change  in  the  design 
variable  during  the  minimization. 

As  the  ADS  is  designed  to  fulfill  the  general  needs  of  a  spectrum  of  engineering 
disciplines,  the  levei  of  user  sophistication  beyond  correct  interpretation  of  the  calling 
arguments  is  not  necessary.  However,  as  is  the  case  of  using  any  library  type  code,  one 
must  correctly  formulate  the  objective  function  and  clearly  interpret  the  iterative  results 
of  the  ADS  code.  Due  to  the  general  nature  of  the  objective  function,  this  last 
statement  becomes  increasingly  important  when  little  is  known  of  the  order  or 
continuity  of  the  function  in  the  region  of  interest.  Two  types  of  constrained 
minimization  problems  were  formulated  for  use  during  the  research.  Problem  I  was  a 
constrained  minimization  problem  with  side  constraints  only  and  Problem  II  was  a 
constrained  minimization  with  inequality  and  side  constraints.  Let  us  discuss  the 
strategies  used  for  each  of  these  two  problems. 

Problem  I 

A  constrained  minimization  problem  with  side  constraints  may  be  posed  as  an 
unconstrained  minimization  problem.  By  specifying  bounds  on  the  design  variables 
within  a  specified  region  during  the  course  of  an  unconstrained  minimization,  one 
implicitly  invokes  the  side  constraints.  The  most  efficient  search  direction  method  for 
Problem  I  was  found  to  be  the  Broyden-Fletcher-Shanno-Goldfarb  (BFGS)  variable 
metric  method.  This  is  a  first  order  method  in  which  the  gradient  information  is 
computed  by  ADS  via  finite  difference  calculations.  Often  called  a  quasi-Newton 
method,  the  BFGS  method  computes  the  search  direction.  S^,  as  follows, 

S^  =  -  FIVF(X^)  (eqn  4.2) 

where  VF(X^)  is  the  ADS  computed  finite  difference  gradient  at  the  qth  step  and  H  is 
an  iteratively  computed  matrix  which  orients  the  search  direction.  Initially  (q=  h  H  is 
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j  the  identity  matrix  and  therefore  the  initial  search  direction  is  in  the  direction  of 

!  steepest  descent.  H  is  then  updated  after  each  iteration  in  the  following  way. 

H^  +  1  =  +  D  (eqn  4.3) 

where  D  is  a  symmetric  matrix  defined  as. 

=  (<T  + t)ppT  <j^  +-  (H%p"^  +  p(H%)^}  <J  (eqn  4.4) 

The  vectors  p  and  y  are  defined  by, 

p  =  X<*  -  X^'1 
y  =  7F(X3)  -  VFiX^'1) 

and  <r  and  t  are  scalar  vector  products  formed  as  follows. 

T  =  yT  y 

The  one  dimensional  search  routine  used  was  the  Golden  Section  method.  As 
this  method  is  a  one-variable  algorithm,  the  single  * variable "  for  our  purposes  is  the 
vector,  Xj  or  t-.  The  advantages  of  the  method  include  no  requirement  for  F(X)  to 
have  continuous  derivatives  and  in  addition  the  Golden  Section  has  a  known  rate  of 
convergence.  Among  the  disadvantages  which  impacts  our  purposes  is  that  the  Golden 
Section  assumes  the  objective  function  to  be  unimodal,  or  to  have  one  minimum  in  the 
region  of  search.  If  one  has  an  objective  function  which  for  example  has  several  local 
minima,  several  solutions  may  exist  depending  on  the  bounds  set  on  the  design 
variables.  As  will  be  shown  subsequently,  the  minimization  of  the  null  vectors,  £r-  and 
Zfi  was  performed  using  the  Problem  I  formulation. 

Problem  II 

If  one  recasts  the  inequality  constraint  as  a  penalty  function,  P(X),  where, 

P(X)  =  X(max(0,gj(X))}2  ,j=l,n  (eqn  4.5) 

then  one  may  also  pose  Problem  II  as  an  unconstrained  minimization  problem  in  the 
following  way  [Ref.  32].  By  forming  a  pseudo-objective  function,  <P(X,rp), 
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and  by  again  bounding  the  design  variables,  one  now  has  a  Sequential  Unconstrained 
Minimization  problem  (SUMT)  with  an  exterior  penalty  function,  P(X).  In  equation 
4.6,  Tp  is  a  scalar  weighting  applied  to  the  penalty  P(X). 

Equation  4.6  is  the  formulation  used  in  this  thesis  for  such  a  minimization.  The 
search  direction  used  for  Problem  II  was  the  Fletcher- Reeves  <FR)  conjugate  method. 
Like  the  BFGS  method,  the  FR  is  a  first-order  method  which  is  an  improved  steepest 
descent  algorithm.  The  search  direction,  for  this  method  is  defined  as, 

=  -  VF(X^)  +  PqS^"1  (eqn  4.7) 

where. 

Pq  =  !VF(X^)|2'jVF(X^'1i|2  (eqn  4. S’) 

As  in  Problem  I,  the  Golden  Section  method  was  used  for  the  one-dimensional  search 
routine.  Problems  I  and  II  w'ere  the  ADS  minimization  strategies  used  during  this 
research.  They  will  subsequently  be  referred  to  as  such. 

B.  THE  NUMERICAL  OPTIMIZATION  PROBLEM 

The  fundamental  expressions  for  feedback  gains  noted  in  Table  1  involve 
eigenvector  constraints  written  in  terms  of  null  space  membership.  Further,  when  these 
null  space  constraints  are  expressed  numerically,  they  take  the  form  of  equations  3.77 
and  3.78  .  The  numerical  objective  than  becomes  one  of  minimizing  some  measure  of 
the  right  and  or  left  null  vector  which  satisfies  such  a  numerical  null  space  membership. 
For  the  right  eigenvector,  one  might  write  such  a  numerical  objective  as  an  objective 
function  expressed  in  terms  of  a  euclidean  distance  measure, 

F(X)  =  ||LblT(A  -  XjInJXjllj  =  !|eri||2  (eqn  4.9) 

where  II erill 2  *s  euclidean  distance  between  the  allowable  subspace  defined  by  the 
desired  closed  loop  eigenvalue,  T  ,  and  the  desired  right  eigenvector,  x;  .  As  the  system 
is  time  invariant,  the  design  freedom,  or  variables,  would  be  all  (unconstrained 


minimization)  or  some  (constrained  minimization)  of  the  right  eigenvector  elements 
and  not  the  open  loop  parameters. 

1.  State  Feedback  Controller  Synthesis 

For  purposes  of  illustration,  let  us  assume  one  is  synthesizing  a  state  feedback 
regulator  where  there  are  n  =  four  states  and  m  =  two  inputs.  Further,  one  desires  the 
following  closed  loop  eigenvector,  to  be  associated  with  the  closed  loop  eigenvalue. 

A... 

I 

Xj  =  (Xj  0  x3  0}T  (eqn4.10) 

where  xt  and  x3  are  unconstrained  and  may  take  on  any  numerical  value.  The 
constrained  values,  noted  by  the  zeroes  in  elements  two  and  four,  are  desired,  for 
example,  in  order  to  satisfy  a  decoupling  specification.  Mathematically,  this  is  a 
constrained  minimization  problem  and  may  be  stated  in  the  following  way, 

Minimize:  F(x.) 
where, 

F(xj)  =  ||Ub,T(  A-X^Xxj)  || 2  =  ||Eri||2 


Subject  to: 
x2  =  0 


For  real  Xj,  this  is  a  four  variable  constrained  minimization  problem  with  two 
side  constraints.  By  bounding  the  design  space  (x->  =  x^  =  0),  this  becomes  a  Problem 
I  formulation.  In  terms  of  real  cost,  this  particular  synthesis  problem  would  entail 
such  Problem  I  minimizations  before  a  feedback  solution  is  computed.  The  side 
constraints  may  also  differ  from  vector  to  vector.  Note  further  that  for  systems  with 
complex  eigenvalues,  the  computational  cost  would  decrease  since  one  may  employ  the 
necessary  conjugate  condition  for  the  associated  complex  eigenvector.  At  this  point, 
the  minimization  problem  can  be  executed,  the  resulting  eigenvectors  are  checked  for 
independence,  and  the  feedback  controller  can  be  synthesised,  A  robust  decoupling 
controller  for  the  CH-47  helicopter  was  synthesised  by  this  method.  Results  will  be 
shown  in  Chapter  VI. 


2.  Output  Feedback  Controller  Synthesis 

Let  us  now  assume  we  must  synthesize  an  output  feedback  controller  with 
four  states,  two  inputs,  and  1=3  outputs.  Computational  cost  is  increased  by  the 
output  feedback  requirement  since  in  addition  to  the  right  eigenvector  constrained 
minimization  problem,  one  of  course  must  also  satisfy  the  left  eigenvector  constraint. 
One  may  pose  this  synthesis  problem  in  a  variety  of  ways.  The  following  scheme  was 
successfully  formulated  during  the  research  reported  in  this  thesis. 

a.  Converge  on  n'  right  eigenvectors  by  solving  'n'  Problem  I  minimizations. 

b.  Compute  the  following  right  residual  sum. 

RESr  =  Xl|cri||2,i  =  l.n  (eqn4.ll) 

c.  Compute  the  corresponding  left  eigenvectors,  t-,  by  the  identity, 

T  -  X‘T  (eqn  4.12) 

d.  Compute  the  'n'  left  null  vectors,  via  equation  3.78  and  compute  the 

following  left  residual  sum,  1 

RES/  =  DM2  ’  1  =  En  (e4n  4. 13) 

e.  Convergence  criteria  is  now  tested  as  the  sum  of  the  right  and  left  residual 
sums, 

R(X,T)  =  X{||criH2  +  lie, ill 2)  *  P  (eqn  4.14) 

Since  the  right  residual  sum  is  satisfied  initially,  the  left  residual  sum  will  likely 
be  out  of  tolerance  The  design  freedom  here  is  to  allow  the  right  eigenvectors  to  vary 
in  order  to  satisfy  the  left  residual.  Convergence  is  then  obtained  by  returning  to  Step 
B.2.b.  subsequent  to  allowing  the  right  eigenvector  elements  to  change  so  as  to 
minimize  the  left  residual  sum.  In  this  way  R(X,T)  will  be  at  or  below  a  specified 
tolerance  p.  This  method  is  termed  the  indirect  method  since  the  left  eigenvector 
constraints  are  being  satisfied  by  allowing  the  corresponding  right  eigenvectors  to 
change  their  orientation. 


One  may  state  the  output  feedback  constrained  minimization  via  the  indirect 
method  as  a  Problem  I  formulation  as  follows. 

Minimize:  R(X,T) 
where, 

R(X.T)  =  VlWr||£ri||2  +  Wjlle^lh} 

Subject  to: 

xlower  ^  xij  ~  xupper 
where. 

X  =  Right  Eigenvector  Matrix 
T  =  Left  Eigenvector  Matrix 
W  W i  =  Scalar  weighting  applied  to  the  residual  sums 

The  indirect  method  for  the  output  feedback  case  can  become  computationally 
inefficient  for  systems  of  high  order.  For  example,  a  tenth  order  system  with  complex 
eigenstructure  will  contain  twenty  design  variables  per  closed  loop  eigenvalue  and 
require  a  tenth  order  complex  matrix  inversion  during  each  execution  of  step  B.2.c. 
Hence  for  large  order  systems,  the  output  feedback  synthesis  scheme  is  modified  in  the 
following  way.  Steps  B.2.a.  -  B.2.d.  remain  the  same  however  step  B.2.e.  becomes  a 
left  eigenvector  minimization  problem  in  the  form  of  Problem  I. 


Minimize:  G(tj) 
where, 

G(ti)  =  HfcriW-^nXti)  || 2 
Subject  to: 


lower 


<  £  t. 


ij  upper 

Upon  convergence  to  an  allowable  t-,  the  right  null  vectors  are  then  computed 
to  check  if  the  right  eigenvectors  have  been  oriented  out  of  the  allowable  right 
eigenspace.  After  several  such  iterations,  one  begins  to  adaptively  learn  the  behaviour 
of  the  system  and  through  interactive  computer  execution,  one  will  converge  on  a  final 
solution.  This  technique  was  successfully  performed  on  an  F/A-18  dynamic  model. 

Note  that  an  advantage  of  the  indirect  method  is  that  one  can  exercise  control 
on  the  bounds  of  the  design  variables  through  the  scalar  weightings  W  and  and 
therefore  exercise  some  limits  on  the  orientation  matching. 
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3.  A  Robust  State  Feedback  Controller  Synthesis 

For  multi-variable  control  systems,  the  minimum  singular  value  of  the  return 
difference  matrix  [Ref.  34]  can  be  used  as  a  robustness  criterion, 

<Tm(Im  +  FG)  >  a  (eqn  4.15) 

where  G  =  Cf si  -  A)’*B.  If  a  =  1.  then  the  feedback  gains.  F.  in  equation  4.15  may 
be  considered  quasi-opiimai  since  fTrn  >  1  for  optimal  state  feedback  controllers  when 
the  input  weighting  matrix  is  the  identity  matrix  [Ref.  35].  By  subtracting  a  from  both 
sides  of  equation  4.15.  one  formulates  a  new  objective  function  K(X),  where, 

K(X)  =  +  FG)  -  a  (eqn  4.16) 

Substituting  the  state  feedback  expression  for  F  from  Table  1  yields 
K(X)  =  <rm;Im  -  Z^U^lXAX*1  -  A)G}  -  a  (eqn  4.17) 

Successful  minimization  of  K(X)  with  the  constraints  (gj)  that  each  desired 
right  eigenvector  be  a  member  of  the  allowable  subspace  invoked  by  the  desired  closed 
loop  eigenvalue  will  result  in  a  robust  quasi-optimal  state  feedback  controller.  The 
uniqueness  of  this  formulation  is  that  one  can  numerically  synthesize  an  optimal  state 
feedback  controller  with  eigenstructure  specification.  This  technique  successfully 
designed  a  quasi-optimal  decoupling  controller  for  the  CH-47  and  will  also  be 
presented  in  Chapter  VI. 

4.  Feedback  Controller  Synthesis  via  Eigenvalue  Shifting 

In  B.l  and  B.2  above,  the  design  variables  are  the  eigenvector  elements  as  the 
closed  loop  eigenvalue  remains  fixed.  One  may  recast  the  objective  function  by 
allowing  the  eigenvalue,  X-,  to  assume  the  role  as  the  design  variable  while  maintaining 
the  eigenvector  elements  fixed.  In  this  way,  the  feedback  synthesis  via  eigenvalue 
shifting  takes  the  form  of  the  following  minimization  problem. 


Minimize  H(Xj) 


H(Xj)  =  ||UblT(A-XiIn)(xi)||2 
Subject  to: 

real  lower  bound  <  Real(Xq)  £  real  upper  bound 

imag  lower  bound  <  Imag(Xj)  <  imag  upper  bound 

This  is  of  course  a  Problem  I  minimization  with  only  two  design  variables  per 
each  of  the  n'  iterations.  An  advantage  of  this  method  is  clearly  one  of  computational 
cost.  A  disadvantage  is  that  one  might  sacrifice  modal  damping  and  natural  frequency 
at  the  expense  of  maintaining  a  desired  eigenvector  structure. 

This  concludes  the  framework,  for  eigenstructure  analysis  and  synthesis  via 
specific  numerical  optimization  strategies.  Let  us  now  turn  to  a  discusssion  of  the 
algorithm  which  formulates  the  theorv  presented  in  Chapters  III  and  IV. 


V.  EIGENS:  AN  INTERACTIVE  DESIGN  ALGORITHM 


A.  DESIGN  PHILOSOPHY 

The  EIGENS  program  is  an  interactive  Fortran  algorithm  designed  for  complex 
eigenstructure  synthesis  of  systems  up  to  tenth  order.  The  tenth  order  limitation  is 
easily  modified  for  systems  of  higher  order  by  increasing  the  array  sizes  for  all  matrices 
in  the  program.  Throughout  the  development  of  the  program,  interactive  coding  was 
used  extensively  not  only  for  on  line  debugging  but  also  due  to  the  iterative  nature  of 
numerical  optimization.  In  addition,  by  the  very  nature  of  eigenstructure  assignment, 
user  familiarity  with  the  system  structure  and  subsequent  interaction  is  a  necessary 
ingredient  for  a  converged  solution  of  feedback  gains. 

In  that  the  program  developed  as  a  research-learning  program  over  the  period  of 
the  thesis  research,  some  of  the  earlier  synthesis  routines  such  as  the  Moore-Matrix  and 
Moore-Algebraic  solutions,  were  never  used  for  the  results  presented  in  this  thesis. 
They  were  written  early  on  to  gain  an  understanding  of  the  classical  results  presented 
by  Moore  [Ref.  10]  and  were  never  exercised  subsequent  to  coding  the  theory  presented 
in  Chapter  III.  All  of  the  results  presented  in  this  thesis  were  computed  based  on  the 
theory  of  Chapter  III. 

The  basic  input  data  beyond  the  necessary  open  loop  parameters  include  a 
desired  closed  loop  eigenstructure.  User  verification  of  this  data  is  by  means  of  visual 
display  of  the  data.  A  verification  data  file  is  also  written  for  future  reference  by  the 
user.  Controllability  checks  of  the  open  loop  eigenvalues  are  then  displayed  to  the 
user.  Beyond  these  checks,  the  program  relys  on  the  user  for  guidance  during  the 
numerical  synthesis  portion.  Some  examples  of  the  guidance  needed  are: 

1.  Upper  and  lower  bounds  on  the  arbitrary  and  specified  right  eigenvector 
elements  or  eigenvalues  (Problem  1  minimizafion), 

2.  Acceptance  of  the  closed  loop  design  based  on  the  null  space  residuals, 

3.  Number  of  iterations  and  values  for  p  (Problem  II  minimization). 

Thus  the  user  becomes  a  required  feedback  loop  in  the  synthesis  process.  This  is 
the  basic  philosophy  of  the  EIGEN'S  code.  The  user  becomes  more  familiar  with  the 
system  as  time  progresses  and  subsequently  becomes  expert  in  the  final  structure  of  the 
closed  loop  design,  A  description  of  the  major  routines  of  EIGENS  follows. 
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B.  PROGRAM  DESCRIPTION 

As  alluded  to  in  previous  section,  there  are  two  basic  feedback,  gain  solution 
procedures  coded  in  the  program.  The  Moore-Matrix/ Moore- Algebraic  solutions  are 
limited  to  real  systems  where  the  number  of  outputs  are  greater  than  the  number  of 
inputs  (/>  m).  The  Kautsky  solution  entails  the  theory  presented  in  Chapter  III  and  is 
only  limited  by  the  tenth  order  requirement.  Therefore,  during  the  course  of  the 
subsequent  discussion,  when  reference  is  made  to  the  Moore  soiuuon.  it  will  be  brief. 

A  note  with  regard  to  the  Moore  solutions  must  be  made.  For  the  solutions. 
EIGEN'S  requires  the  desired  closed  loop  right  eigenvectors  to  be  input  in  the  following 
form. 


v.  =  CX;  (eqn  5.1) 

where  C  is  the  output  matrix  and  x;  is  the  desired  closed  loop  right  eigenvector. 
(Presently  v.  must  be  input  irrespective  of  using  the  Moore  or  Kautsky  solutions). 
Upon  completion  of  the  Moore  routines,  the  subsequent  closed  loop  eigenvectors  are 
then  checked  for  linear  independence.  If  the  vectors  are  not  independent,  the  user  is 
queried  as  to  new  values  of  v.  in  equation  5.1  for  reentry  into  the  Moore  routines. 
Upon  converging  on  an  independent  set  of  right  eigenvectors,  feedback  gains.  F.  are 
then  computed.  The  reader  is  referred  to  [Ref.  10]  for  the  details  of  this  procedure. 

The  EIGENS  Fortran  listing  is  shown  as  Appendix  C.  Figure  5.1  depicts  the 
general  flowchart  for  the  EIGEN'S  code  and  the  reader  is  referred  to  Appendix  C  for 
detailed  analysis.  In  the  discussion  which  follows,  only  the  main  program  and  those 
subroutines  which  perform  the  feedback  gain  computations  are  described.  Auxiliary 
subroutines  which  perform  such  computations  as  complex  singular  value 
decomposition  (CSVD),  complex  matrix  multiplication  (CMAMTU).  etc.,  will  not  be 
discussed  in  detail.  These  auxiliary  programs  are  masked  to  the  user  and  are  only 
required  for  the  execution  of  EIGEN'S.  A  description  of  the  flowchart  blocks  is 
discussed  below.  Notation  for  the  number  of  states,  inputs,  and  outputs  is  N.  M.  and 
U  respectively. 

1.  Upon  completion  of  initializations,  the  data  is  read  from  File  01  as  follows. 
(The  format  statement  numbers  are  designated  bv  'xx'  for  ease  of  description 
and  the  read  format  is  shown  adjacent  to  each  read  statement  statement). 

READ(l,xx)TITLE  (20A4) 

READ(l,xx)N,M,L,IFEED  (412) 
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IFEED  =  1  (State  Feedback) 

IFEED  =  2  (Output  Feedback) 

IFEED  =  3  (Output  Feedback  w/Feedfwd) 
READ(l,xxX(A(U)J=  1,N),I-  l.N)  (6F12.5) 

READ(l,xx)((B(Ijy=  1,M),I-  l.N)  (6F12.5) 

READ(l,xxX(C(UW-  1,N),I  =  l.L)  (6F12.5) 

If  IFEED  =  1  or  2  SKIP  TO  READ  EIGD 
READ(  l,xx)((D(I J),J  =  ItM),I=  l.L)  (6FI2.5) 

READ(l,xx)EIGD(I)  (Desired  C-Loop  kj)  (2F12.5) 

READ(l,xx)E(J,I)  (Desired  Cx^  (2F12.5) 

READ(l,xx)VD(J,I)  (Desired  Xj)  (2F12.5) 

2.  The  data  is  then  displayed  to  the  user  for  input  verification. 

3.  After  computing  the  open  loop  eigenvalues,  the  controllabilitv  of  each  k.  is  then 
computed  and  dispiaved  bv  a  controllabilitv  flag.  If  the  controllabilitv  Hag 
equals  one.  then  the  open  loop  eigenvalue  can  be  “shifted  via  state  feedback.  IT 
the  Hag  equals  zero,  then  the  open  loop  eigenvalue  is  invariant  under  state 
feedback.  In  this  case  the  eigenvalue  cannot  be  shifted. 

4.  Subsequent  to  the  controllabilitv  computations,  the  user  is  then  allowed  to 
change  the  desired  closed  loop  eieenstructure  onlv  if  the  Moore  solutions  are 
going  to  be  invoked.  The  user  must  change  Fife  01  to  input  a  new  desired 
closed  loop  eigenstructure  if  the  Kaustky  solution  is  to  be  used. 

5.  Select  feedback  gain  solutions  (Moore  or  Kautsky). 

6.  Display  results. 

As  the  Kautsky  solution  was  used  for  the  results  presented  here,  this  subroutine 
will  be  discussed  in  detail.  As  a  final  discussion  of  the  Moore  solutions,  note  that  in 
Figure  5.1  these  solutions  are  complete  when  the  resulting  right  eigenvectors  are 
linearly  independent.  The  resulting  feedback  gains  are  then  computed,  the  user  is 
queried  as  to  the  necessity  of  a  singular  value  analysis  of  the  return  difference  matrix, 
and  the  final  design  results  are  displayed.  Let  us  now  turn  to  the  Kautsky  solution 
which  is  coded  within  the  KVECT  subroutine. 

C.  SUBROUTINE  KVECT 

Figure  5.2  depicts  the  flowchart  for  KVECT.  Subsequent  to  initializations,  the 
SVD  of  B  is  performed  and  the  necessary  block  matrices  are  computed.  The 
subroutine  then  performs  'n'  Problem  I  minimizations  to  construct  the  allowable  right 
eigenvector  set  nearest  to  the  desired  modal  set.  The  user  then  has  the  option  of 
minimizing  <Tm(I  +  FG)  (Problem  II  minimization)  for  the  full  state  feedback  case 


only.  If  output  feedback  synthesis  is  required  (IFEED  =  2  or  3)  and  the  rank  of  C  is 
less  than  'n',  KVECT  then  calls  FEEDEF  for  further  computations.  Upon  completion 
of  feedback  gain  computations,  the  code  returns  to  the  main  program  for  display  of 
results  and  any  further  processing  the  user  might  desire. 

D.  SUBROUTINE  FEEDEF 

Figure  5.3  depicts  the  flow  for  the  FEEDEF  subroutine.  Note  that  the  user  has 
access  to  the  Problem  II  minimization  process  via  designation  of  the  scalar  weightings 
Wf  and  Wj.  Upon  completion  of  the  minimization  and  feedback  gain  calculations,  the 
program  returns  to  KVECT. 
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VI.  MIMO  CONTROLLER  DESIGN  DEMONSTRATIONS 


A.  A  ROBUST  DECOUPLING  STATE  FEEDBACK  CONTROLLER 

The  lateral  dynamics  of  the  CH-47  helicopter  [Ref.  36]  have  the  following  state 
variable  representation. 


x  =  Ax  +  Bu 


(eqn  6.1) 


y  =  Cx 


(eqn  6.2) 


where  the  state  vector  is  defined  as. 


x  =  {v  p  r  <p}T 


(eqn  6.3) 


and  the  units  of  the  vector  elements  are, 

Xj  —  v  —  y  velocity  (ft/ sec) 
x->  =  p  =  roll  rate  (rad, 'sec) 
=  r  =  yaw  rate  (rad  sec) 
X4  =  <p  =  bank  angle  (rad) 


The  system  matrices  are  shown  in  Table  2. 

Lateral  stability  augmentation  (LSA)  to  a  roll  command  input,  5,  is  accomplished 
via  state  feedback  with  feedforward  as  follows. 


u  =  Fx  +  G2^ 


(eqn  6.4) 


where, 


u  -  (Pr  Pp> 


(eqn  6.5) 


60 


TABLE  2 

CH-47  LATERAL  DYNAMICS  MODEL 


A  B  C 


-2.27 

-1.42 

-0.15 

31.99 

0.12 

0.95 

1 

0 

0 

0 

0.0 1 

-0.70 

-0.07 

00.00 

0.04 

-8.37 

0 

1 

0 

0 

0.04 

-0.05 

-0.05 

00.00 

0.34 

0.o2 

0 

It 

1 

1) 

0.00 

1.00 

0. 1 1 

00.00 

0.00 

0.00 

0 

0 

0 

1 

and, 

pr  =  yaw  rate  rotor  deflection  control 
Pp  =  roll  rate  rotor  deflection  control 

G->  is  the  fourth  column  of  the  state  feedback  matrix,  F. 

G2  =  {F(l,4)  F(2,4)}T  (eqn  6.6) 

In  that  feedforward  control  has  no  influence  on  the  resulting  closed  loop 
eigenvalues,  there  exist  several  alternatives  with  regard  to  choosing  an  acceptable  form 
for  G2-  As  the  system  zeroes  are  invariant  under  state  feedback,  an  acceptable  form 
might  be  one  w-hich  allows  flexibility  in  invoking  specific  dynamic  and  static  error 
responses  to  the  system  [Ref.  37].  No  modification  to  G2  was  performed  for  this 
example. 

The  design  requirements  for  the  state  feedback  controller  are: 

a.  Improve  the  performance  and  robustness  of  the  svstem  with  respect  to 
uncertainties  at  the  plant  input  and, 

b.  Shift  the  open  loop  eigenvalues  from, 

Aql  =  diag{-2.098  -1.079  0.207  -0.050}  (eqn  6.7) 

to  the  following  closed  loop  eigenvalues, 

Acl  =  diag{-25.120  -12.510  -9.652  -2.125}  (eqn  6.8) 
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Improvement  of  the  performance  and  robustness  can  be  based  on  several 
measures  [Ref.  38].  For  the  purpose  of  this  example,  increasing  the  minimum  singular 
value  of  the  return  difference  matrix,  ffm(Im  +  FG(jco)}for  co  ^  50.0  radians  was  used 
as  a  robustness  criterion.  G  is  the  transfer  function  matrix  between  the  input  u  and 
output  v,  C(jtoIn  -  A)'^B.  In  the  discussions  below,  the  term  MIMO  robustness  is 
synonymous  with  the  <rm(lm  +  FG)  defined  above. 

Sandeii  [Ref.  36]  ec.  ai.  presented  three  different  feedback  gam  solutions  which 
successfully  invoked  the  A^  above.  Two  of  the  three  lacked  MIMO  robustness  since 
<rm  of  the  return  difference  matrix  had  values  of  as  low  as  0.3.  This  is  a  prime  example 
of  the  non  uniqueness  of  solutions  for  F  when  implementing  a  pole  placement 
algorithm  for  MIMO  systems.  In  other  words,  a  particular  set  of  feedback  gains,  F, 
will  invoke  a  specific  robustness  measure  while  simultaneously  shifting  the  eigenvalues. 
Gordon  [Ref.  8]  exploited  this  non  uniqueness  using  numerical  optimization  techniques 
and  designed  robust  feedback  controllers  which  simultaneously  shifted  the  eigenvalues 
and  set  <rm(Im  +  FG)  greater  than  or  equal  to  0.6.  Another  way  of  improving  the 
robustness  of  the  system  is  by  designing  an  optimal  LQG  controller.  In  this  way  the 
degrees  of  freedom  beyond  pole  placement  take  the  form  of  an  optimal  control 
solutions.  Chow  [Ref.  9]  designed  such  an  optimal  state  feedback  controller  while 
simultaneously  shifting  Aq^  to  ^CL' 

The  eigenstructures  of  these  designs  designated  as  Son-Robust,  Gordon,  and, 
Chow,  are  depicted  in  Table  3  in  orders  of  increasing  robustness.  Examination  of  the 
eigenstructures  reveal  an  increased  modal  decoupling  of  yaw  rate  as  the  robustness 
improves.  It  is  this  observation  which  prompted  the  use  of  eigenstructure  assignment 
to  compute  a  feedback  solution.  By  using  the  following  desired  eigenstructure. 

X  X  X  X 
X  X  X  X 

X  - 

0  0  0  x 
x  x  x  0 


A  =  diag(-25.I20  -12.510  -9.652  -2.125} 

where  x  is  an  arbitrary  design  variable,  and  0  is  a  specified  value  for  the  decoupling; 
and  by  executing  the  State  Feedback  Controller  Synthesis  procedure  of  the  EIGENS 
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code,  the  feedback  solution  denoted  as  EIGENS  in  Table  3  was  obtained.  Note  the 
decoupling  of  the  yaw  rate  elements  and  the  resulting  Figure  6.1  depicts  the 

resulting  minimum  singular  value  plots  of  the  four  designs.  Note  that  robustness  and 
eigenvalue  placement  was  achieved  simultaneously  in  a  rather  straightforward  manner 
using  eigenstructure  assignment. 


TABLE  3 

CH-47  DECOUPLING  STATE  FEEDBACK  DESIGNS 


Design 

Feedback  Gains 


1.7 

-0.024 


14.2 

0.05 


-34.64 

-5.10 


-0.65 

-0.022 


-34.64 

4.64 


Eigenstructure 
Non- Robust  Design 


-24.80 

-11.42 

-10.30 

-2.1 

■595. 

7.99 

-0.416 

0.117 

-1.000 

0.000 

0.641 

0.401 

1.000 

-0.045 

0.701 

0.404 

1.000 

-0.050 

1.000 

-0.008 

-0.019 

0.005 

Gordon  Design 

-24.90 

-11.90 

-10.70 

-2.34 

61.0 

15.6 

-0.415 

-0.122 

-1.000 

0.009 

0.233 
1.000 
-0. 124 
-0.083 

-0.338 

-1.000 

-0.095 

0.093 

-1.000 

0.031 

-0.205 

-0.004 

EIGENS  Design 

-25.12 

-12.50 

-10.50 

-2.12 

•59.94 

28.01 

0.002 

-1.000 

-0.004 

0.040 

-0.254 

-1.000 

0.012 

0.080 

-0.364 

-1.000 

0.085 

0.095 

-1.000 

-0.043 

0.335 

0.003 

Chow  Design 

-25.30 

-11.62 

-10.40 

-2.10 

6.60 

30.64 

0.003 

-1.000 

-0.002 

0.040 

-0.290 

-1.000 

0.042 

0.085 

0.409 

1.000 

-0.007 

-0.096 

-1.000 

0.008 

0.020 

-0.005 

B.  A  QUASI-OPTIMAL  STATE  FEEDBACK  DECOUPLING  CONTROLLER 

As  noted  previously,  Chow  [Ref.  9]  successfully  coded  an  algorithm  which  will 
obtain  an  optimal  state  feedback  LQG  control  solution  which  invokes  a  desired  A^. 
Table  4  depicts  the  eigenstructure  of  one  of  his  solutions  for  the  CH-47  lateral  stability 
controller.  Note  however  that  the  yaw  rate  element  associated  with  the  fast  eigenvalue, 
a. 4  =  -2.125.  exhibits  some  coupling.  By  inserting  a  numerical  zero  in  place  of  the 
eigenvector  eiementai  vaiue  of  0.  l~37  for  x-j,  ami  retaining  the  rest  of  the 
eigenstructure  as  inputs  to  the  E1GENS  algorithm,  the  Yaw  Decoupled  design 
structure  was  obtained.  The  resulting  minimum  singular  value  of  the  return  difference 
matrix  (I  +  FG)  for  this  design,  however,  decreased  to  approximately  0.72.  At  this 
point,  one  has  an  acceptable  decoupling  design  but  it  is  not  optimal,  since  <rm(Im  + 
FG)  is  less  than  1.0.  Using  the  yaw  decoupled  eigenstructure  as  inputs  to  the  Robust 
State  Feedback  Controller  Synthesis  procedure  of  the  EIGENS  code,  a  minimization  of 
equation  4.17  resulted  in  a  value  of  a  of  0.905.  As  a  is  nearly  one  for  this  solution,  the 
^feedback  gains  are  termed  Quasi-Optimal  and  the  resulting  eigenstructure  is  shown  in 
Table  4.  Note  the  yaw  rate  decoupling  throughout  the  eigenvector  matrix.  Figure  6.2 
shows  the  progression  of  the  minimum  singular  value  for  each  of  these  designs  and 
clearly  notes  the  increased  robustness  of  the  Quasi-Optimal  solution  over  the  Yaw 
Decoupled  solution.  Figure  6.3  depicts  the  resulting  transient  response  to  a  2.0  sec  0.1 
radian  roll  pulse  command  for  the  Quasi-Optimal  Yaw  decoupled  system.  Note  the 

A 

essentially  zero  (10  rad,' sec)  yaw  rate  response. 

C.  A  ROBUST  OUTPUT  FEEDBACK  CONTROLLER 

The  state  variable  lateral  dynamics  model  of  the  L- 101 1  transport  augmented 
with  rudder  and  aileron  dynamics  is  shown  below  [Ref.  24]. 

x  =  Aaugx  +  Bu  (eqn  6.9) 


y  =  Cx  (eqn  6.10) 

where  the  augmented  state  vector  is  defined  as, 

Xj  =  pr  ,  rudder  deflection  (deg) 

x2  =  Pa  ’  a^eron  deflection  (deg) 
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TABLE  4 

CH-47  OPTIMAL  STATE  FEEDBACK  DESIGNS 


Design 

Eigenstructure 

-25.120  -12.509 

-9.651 

-2.125 

Chow  LQG 

-0.0033 

0.9992 

0.0001 

-0.0398 

-0.2493 

-0.96.54 

-0.0022 

0.0772 

-0.4650 

-0.8796 

-0.0405 

0.0916 

-0.9847 

-0.0  r  9 
0.1737 
-0.0006 

-25.124 

-12.510 

-8.094 

-2.153 

Yaw 

Decoupled 

-0.0033 

0.9992 

0.0001 

-0.0398 

0.2493 

0.9654 

0.0022 

-0.0772 

0.6103 

0.7S62 

-0.0023 

-0.0971 

-1.0000 

0.00S2 

-0.0004 

-0.0038 

-24.661 

-12.511 

-8.780 

-2.220 

Quasi-Optimal 
\aw  Decoupled 

-0.0018 

0.9992 

-0.0043 

-0.0405 

-0.2492 

-0.9654 

-0.0022 

0.0772 

-0.5326 

-0.8409 

0.0046 

0.0957 

1.0000 

-0.0041 

0.0002 

0.0018 

=  (p  ,  bank,  angle  (deg) 

X4  =  r  ,  yaw  rate  (deg,  sec) 
x^  =  p  ,  roll  rate  (deg.  sec) 

Xg  =  p  ,  sideslip  angle  (deg) 
x?  =  fwo  ,  washout  filter  state 

The  input  vector, u  ,is  composed  of  the  rudder  and  aileron  commands,  pc  and  pr . 

u  =  (Pc  Pa(T  (ecln  6H) 

The  system  matrices  are  shown  in  Table  5. 

Sobel  and  Shapiro  [Ref.  24]  applied  the  classical  results  of  Moore  [Ref  10]  to  the 
design  of  a  lateral  stability  augmentation  system  (LSAS)  for  the  L- 101 1  aircraft.  The 
following  design  requirements  set  forth  in  [Ref.  24]  were  used. 
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TABLE  5 

L-1011  LATERAL  DYNAMICS  MODEL 


-20.00 

0.00 

0.00 

0.00 

0.00 

0.00 

o.oo 

0.00 

-25.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

0.00 

O.oo 

1.00 

0.00 

1  UHI 

-0.--U 

-0.032 

o.0«) 

-0.154 

-.0042 

!  .54 

i.i  10 

0.337 

-1.120 

0.00 

0.249 

-1.00 

-  5.20 

0.00 

0.020 

0.00 

0.03S6 

-0.996 

-.0003 

-0.117 

0.00 

0.00 

0.00 

0.00 

0.500 

0.00 

0.00 

-0.500 

20.00 

0.00 


0.00 

25.00 


0.0 

0.0 

0.0 

1.0 

0.0 

o.o 

-1.0 

0.0 

0.0 

0.0 

0.0 

1.0 

0.0 

0.0 

0.0 

o.o 

0.0 

0.0 

0.0 

1.0 

0.0 

O.o 

0.0 

1.0 

0.0 

0.0 

1.0 

0.0 

a.  Shift  the  open  loop  roll  and  dutch  roll  eigenvalues  to  -1.5  ±  1.5]  and  -2.0  ± 
1.0]  respectively,  and, 


b.  Decouple  roll  rate  and  bank  angle  from  the  dutch  roll  vectors  and  decouple  vaw 
rate  and  sideslip  angle  from  theYolI  vectors. 


This  design  problem  was  executed  via  the  Output  Feedback  Synthesis  procedure 
of  the  EIGEN'S  code  subsequent  to  a  model  reduction.  Since  the  first  order  actuator 
eigenvalues  were  an  order  of  magnitude  greater  than  the  aircraft  and  washout  filter 
poles,  the  faster  actuators  were  ignored  during  the  design  synthesis.  Upon  computing 
the  feedback  gains,  the  slow  system  was  then  augmented  to  include  the  faster  actuator 
dynamics  prior  to  transient  response  analysis.  This  technique  of  eigenspace  separation 
becomes  a  computational  necessity  when  synthesisizing  controllers  for  high  order 
augmented  linear  systems.  An  augmented  linear  dynamic  model  of  the  F  A-1S  tactical 
aircraft  for  example  [Ref.  39]  consists  of  fifty-five  state  variables. 

Upon  reducing  the  model  to  five  states,  the  following  desired  eigenstructure  was 
input  to  the  EIGENS  code. 


rv^ivlsNy;.-;v 


'  Nv.-V 
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1 


^1,2  ^3,4  X5 

1.  5  db  1.  5 j  -2.  0 ±  1.  0 j  -0.6 


*1,2 

x3 , 4 

X 

0 

X 

X 

X 

0 

X 

0 

X 

X 

X 

0 

X 

X 

0 

X 

where  j:  again  denotes  an  arbitrary  design  variable.  The  resulting  feedback  gains  and 
eigenstructures  are  compared  with  those  of  Sobel  and  Shapiro  in  Table  6.  The  closed 
loop  responses  to  an  initial  sideslip  angle  of  P  =  1.0  degree  are  shown  in  Figure  6.4. 
Figure  6.5  depicts  the  response  using  the  EIGENS  generated  gains.  Figure  6.6 
compares  the  minimum  singular  value  plots  of  the  two  designs.  The  designs  have 
nearly  identical  robustness  properties. 

This  concludes  the  discussions  with  regard  to  designing  robust  MIMO 
controllers.  The  design  technique  has  been  shown  to  provide  flexibility  towards 
improving  an  existing  robust  or  optimal  design.  It  also  allows  the  designer  to  exercise 
control  over  the  modal  content  of  the  resulting  system  within  the  subspace  constraints 
noted  in  Chapter  III.  It  is  this  modal  control  which  provided  the  motivation  to 
investigate  the  application  of  eigenstructure  assignment  to  reconfigure  damaged  aircraft 
control  systems.  Damage  to  aircraft  control  surfaces,  wing; body  profiles,  or  to  control 
actuators  in  effect  change  the  resulting  closed  loop  modal  eigenstructure.  If  one  were 
able  to  regain  the  undamaged  modal  structure,  then  one  has  reconfigured  the  aircraft 
control  system.  Let  us  now  turn  to  a  discussion  of  such  a  concept. 
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TABLE  6 

L-lOl  1  OUTPUT  FEEDBACK  DESIGNS 


Feedback  Gains 

35  0.159  4. 88 

42  -2.3S  6.36 


Natural  Freq 


Feedback  Gains 

88  0.10"  6.12 

29  -2.64  o.51 


Sobel  &  Shapiro  Results 


0.3~9  -  r  05 

-3.3  -22.01 

-1  >1)2  ±  1.49 
-2.00  [  ±  994 
-0.o9S9 

Damping  Ratio 

0  -08 
0.3946 


EIGE\S  Results 


0  133 
-4  44 


1 

-16.561 
-21  - 

-1  -9±  1  <5) 
-2  15±  1  02 

-<•(,93 


Natural  Freq 


Damping  Ratio 


0  20.0  30.0 

FREQUENCY  ( RAD/ SEC) 
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40.0 
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QUASI-  OPTIMAL 
YAW  DECOUPLED 


10.0  20.0  30.0  40.0 
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Figure  6.2  <Tmin(I  +  FG)  for  CH-47  Optimal  Designs. 
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VII.  EXPLOITATION  OF  EIGENSTRUCTURE  ASSIGNMENT  TO  SELF 
RECONFIGURING  AIRCRAFT  MIMO  CONTROLLERS:  A  NEW 

APPROACH 


A.  PROBLEM  STATEMENT 

Prior  to  defining  the  objectives  of  a  seif  -  reconfiguring  MIMO  controller,  one 
must  clearly  state  the  types  of  system  changes  and/or  deficiencies  which  might  require 
the  flexibility  of  such  a  device.  In  this  thesis,  the  design  requirement  of  the  aircraft 
under  analysis  was  assumed  to  be  the  undamaged  or  design  dominant  eigenstructure  for  a 
specific  airspeed,  altitude  and  mission  configuration.  A  system  change  or  deficiency 
might  include: 

a.  Asymmetric  or  symmetric  degradation  of  control  surface  effectiveness , 

b.  Asymmetric  or  symmetric  control  surface  loss, 

c.  Single  or  multiple  actuator  degradation  or  failure, 

d.  Single  or  multiple  sensor  degradation  or  failure,  or 

e.  Any  aircraft  damage  which  signijicantlv  changes  the  stability  derivatives  and 
therefore  the  modal  response  of  the  aircraft. 

The  design  objective  of  a  self  -  reconfiguring  MIMO  controller  as  interpreted  in 
this  thesis  is  therefore  to  regain  the  undamaged  modal  structure  subsequent  to  such 
system  deficiencies  via  a  new  or  reconfigured  set  of  feedback  gains.  The  objective  is 
not  a  systems  approach  to  reconfiguration  but  rather  a  tailored  algorithm  which 
extends  the  application  of  eigenstructure  assignment.  The  reader  is  referred  to  [Ref.  40] 
as  an  example  of  what  is  termed  a  systems  approach  to  the  reconfiguration  problem. 
A  mathematical  definition  of  such  a  controller  might  be  stated  in  the  following  way. 

Problem  Statement 

Does  there  exist,  and  if  so,  what  are  the  new  set  of  feedback  gains  required  to  regain 

the  desired  dominant  eigenstructure  subsequent  to  a  system  deficiency ? 

In  terms  of  the  overall  flight  control  system,  there  are  additional  assumptions 
beside  the  existence  of  a  solution  which  are  implicit  in  this  problem  statement.  The 
three  most  recognizable  are: 

a.  The  deficiency,  or  damage ,  is  assumed  to  be  detectable  in  a  time  scale  much  faster 
than  the  response  time  of  the  aircraft, 

b.  Sufficient  moment  and  force  authority  exist  in  the  remaining  undamaged  control 
surfaces  to  overcome  the  deficiencies  and. 


t. 1  m.f>  ».r  n«j  •  . 


/.V.V 


c.  Appropriate  feedback  loops  exist 
available  control  surfaces. 


between  the  sensed  motion  variable  and  all 


Note  that  the  objective  of  the  reconfigured  controller  in  this  thesis  is  to  regain 
the  undamaged  modal  response  with  the  assumption  that  the  system  deficiency  has 
been  detected.  This  is  not  to  say  however  that  the  technique  described  below  cannot  be 
applied  to  the  detection  process.  The  concept  may  be  equally  applied  to  detection  or 
observer  design. 

B.  ALGEBRAIC  SOLUTION 

An  algebraic  solution  to  the  problem  used  in  this  thesis  is  presented  as  follows. 
It  was  shown  previously  that  for  the  output  feedback  case,  the  set  of  unique  feedback 
gains,  F,  which  invoke  m  x  l  elements  of  a  desired  right  eigenvector  matrix,  .Y,  and 
max(m,l)  elements  of  the  eigenvalue  matrix,  A,  in  the  least  square  sense,  are  defined  by, 


F  =  Zb''l-b„T«XAX''.A)Zc'1U 


•If  T 

CO 


(eqn  7.1) 


where  each  right  and  left  eigenvector  must  be  members  of  null  spaces  defined  by  their 
respective  closed  loop  eigenvalues,  X- , 


x;  e  <^UblT(A  -  X.In)} 


(eqn  7.2) 


h  «  WalT(AT  •  Xjl.)} 


(eqn  7.3) 


In  order  to  facilitate  the  analysis,  let  us  rewrite  equation  7.1  by  substituting  B 


for  Zb-1Ub0T  and  Cz  for 


F  =  BJXAX’1  -  A)C, 


(eqn  7.4) 


In  equation  7.4  let  us  define  the  undamaged  dominant  modal  structure,  or  design 
requirement  noted  above,  by  designating  the  matrix  (V/,  where, 


M  =  XAX'*  =  BFC  +  A 


(eqn  7.5) 


as  the  modal  matrix.  Note  that  system  deficiencies  or  damage  as  defined  previously, 
would  result  in  either  collective  or  distributional  changes  to  the  matrix  triple  (A,B,C). 
A  large  change  in  the  control  matrix  B  for  example,  would  occur  if  a  particular  control 
surface  was  rendered  ineffective  by  combat  damage.  Such  a  change  might  invoke 
zeroes  in  B  and  perhaps  even  cause  rank  degeneracy  in  the  control  matrix.  Let  us 
denote  such  changes  as  8A,  SB,  and  SC.  Further,  if  the  feedback  gains  in  7.4  were  held 
constant,  then  the  modal  matrix,  M,  would  likewise  undergo  changes.  5M.  since  if  the 
feedback  gains  were  to  be  held  constant  in  7.4,  the  following  equality  would  anse. 

F  =  (B-,  +  6Bz){M  +  6M  -  (A  +  6A)}  (Cz  +  SCZ)  (eqn  7.6) 


Again,  cases  may  arise  where  8M  could  represent  benign  responses  such  as  decreased 
pitch  response  due  to  symmetrical  elevator  degradation  or  severe  changes  such  as  an 
undesired  roll  and  yaw  response  from  pitch  commands  due  to  asymmetric  elevator 
degradation.  In  order  to  maintain  the  integrity  of  the  dominant  modes  of  the  modal 
matrix,  M,  constant  in  7.6,  and  thereby  regain  the  undamaged  modal  response,  one 
could  allow  the  feedback  gains  F  to  undergo  a  perturbation  8F,  to  lessen  the 
magnitude  of  SM.  The  flexibility  of  eigenstructure  assignment  and  its  suitability  for 
solution  by  numerical  optimization  techniques  allow  one  to  perform  such  a  calculation. 
For  example,  if  one  required  the  closed  loop  eigenvalues,  A,  to  remain  constant,  one 
would  allow  the  closed  loop  eigenvector  matrix,  X,  to  assume  the  role  of  design 
variables  in  an  optimization  routine  to  satisfy  equation  7.2.  By  converging  to  such  a 
solution  and  designating  the  subsequent  changes  to  the  modal  matrix  M  as  6m,  where 
8m  represents  minor  changes  to  the  dominant  modes,  one  has. 


Note  that  in  equations  7.8  and  7.9,  the  changed  open  loop  parameters  are  A  +  8A,  B 
+  8B,  and  C  4-  SC  and  as  such  remain  constant.  If  one  desires  a  specified  closed  loop 
eigenvalue  matrix,  A,  then  one  must  allow  the  eigenvectors  x-  and  t-  to  rotate  until 
equations  7.8  and  7.9  are  satisfied.  If  such  a  solution  exists,  then  one  has  reconfigured 
the  system  to  regain  a  response  close  to  the  undamaged  response.  Note  additionally 
that  one  may  apply  the  concept  of  eigenvalue  shifting  described  in  Chapter  VI.  Section 

B. 4.  to  satisfy  tne  nuil  space  requirements  of  equation  7.S  and  7.9.  Equations  ".7.  ~.S. 
and  7.9  are  the  key  relations  used  in  the  reconfiguration  algorithm  presented  in  this 
thesis. 

C.  RECONFIGURATION  ALGORITHM 

The  reconfiguration  algorithm  presented  in  this  thesis  which  codes  the  key 
relations  noted  above  can  facilitate  analysis  of  a  fifty  -  five  state  variable  model  with 
up  to  ten  inputs  and  eighteen  inputs.  It  is  composed  of  three  sequentially 
interdependent  Fortran  algorithms  {RECONF,  ERSPACE ,  ELS  PACE)  which  execute 
the  reconfiguration  constraints  noted  in  equations  7.7  through  7.9  It  is  assumed  that 
the  user  has  independently  computed  a  set  of  feedback  gains  for  a  particular  system 
which  invoke  a  satisfactory  eigenstructure.  The  reconfiguration  algorithm  initializes 
the  design  analysis  with  the  user  provided  data  and  computes  the  modal  matrix,  M,  for 
further  use.  The  algorithms  were  coded  for  execution  on  the  Naval  Postgraduate 
School  IBM  -  370  mainframe  via  interactive  access  through  compatible  user  terminals. 
The  reader  is  referred  to  Appendices  D,  E,  and  F  for  the  program  listings.  A 
sequential  description  of  a  typical  reconfiguration  flow  is  described  below.  Acronyms 
to  the  left  of  the  program  name  are  designated  as  read  files,  those  to  the  right  are 
designated  write  data  files. 

a.  RECONF  reads  the  undamaged  svstem  matrices  (A.B.C.F)  and  writes  the 
undamaged  modal  eigenstructure  (X,'A). 

RECONF— ->  — {RECONF} — >—  -UNDEIG 

b.  RECONF  reads  the  user  provided  damaged  svstem  matrices  {RECOXX)  and 
undamaged  modal  eigenstructure  {UNDEIG)  and  writes  the  appropriate  right 
eigenstructure  data  { ERSPACE)  for  right  null  space  analvsis  (7.8).  Tne  user  Has 
control  over  the  order  of  the  design  space  bv  designating  the  upper  and  lower 
bounds  of  the  eigenvalues  ofinterest.  In  this  wav,  the  user  mav  svnthesize  the 
entire  eigenspace  bv  segmenting  the  whole  space  into  iterative  'segments  ol 
design  spaces  or  may  specify  a  reduced  order  design  eigenspace. 

RECOXX  — >—  {RECONF}  —  >—  ERSPACE 
UNDEIG  ' 

c.  ERSPACE  reads  the  right  eigenspace  data  and  calls  the  ADS  program  to 
minimize  a  specific  normed  vector  distance  between  the  undamaged  right 
eigenvector  and  the  perturbed  (damaged)  right  null  space  (7. ST.  Upon 
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convergence,  the  appropriate  left  eigenstructure  data  is  written  (ELSPACE)  for 
left  null  space  analysis  (equation  7.9). 

ERSPACE-— > — {ERSPACE}  —  > — ELSPACE 

d.  ELSPACE  reads  the  eigenstructure  data  and  uses  the  ADS  program  to 
minimize  the  euclidean  distance  between  the  desired  left  eigenvector  and 
perturbed  (damaged)  left  null  space.  The  user  has  the  option  of  performing  the 
minimization  bv  either  eigenvector  or  eigenvalue  shifting.  After  convergence  is 
obtained  for  each  left  eigenvector,  the  right  null  space  residual  is  also  displayed 
to  alert  the  user  of  anv'conflict  with  the  resulting  right  eigenvector  null'  space 
membership.  If  such  a'conflict  arose,  the  code  could  "be  modified  to  rewrite  me 
ERSPACE  data  file  for  reentrv  -nto  the  ERSPACE  algorithm.  \o  Mien 
requirement  has  been  notea  for  the  model  unaer  anaivsis  :or  the  research 
reported  in  this  thesis.  This  is  due  to  the  fact  that  lor  the  F  A- ISA  linear 
dynamic  model  presented  m  Chanter  VIII  the  dimensions  of  E  and  E  are  -o 
and  37  respectively .  Therefore  di'Er)  >  d(E/).  Lpon  completion  of  the  leit  nuii 
space  analysis.  ELSPACE  writes  the  optimized  eigenstructure  (OPTEIG)  ior 
use  by  RECON F  to  calculate  the  reconfigured  gainsf 

ELSPACE- — >  * — (ELSPACE}- — > . OPTEIG 

e.  RECONF  reads  the  optimized  eigenstructure  and  calculates  the  resulting 
feedback  gains  (FRECON).  reconfigured  eigenstructure  (RECEIGi  and  rea Hired 
time  response  data  for  oiotting.  [OPTXXX\  for  plotting.  Plotting  is  performed 
by  auxiliary  programs  hot  described  in  this  thesis. 

RECOXX— -  >  -—RECONF— -  > . FRECON.  OPTEIG 

RECEIG.  OPTXXX 

A  sample  run  is  presented  in  Appendix  G. 


VIII.  A  RECONFIGURED  SOLUTION  DEMONSTRATION 


A.  BACKGROUND 

The  F  A- ISA  was  chosen  as  a  demonstration  vehicle  for  the  solution  technique 
nosed  in  Chapter  VII  due  to  its  digital  flight  control  <y  stem  and  availability  of  control 
•undoes  for  reconfiguration.  A  current  tactical  aircraft  in  the  L Navy  ana  Marine 
Corps  inventory,  its  primary  flight  control  is  baselined  as  a  control  augmentation  system 
which  is  implemented  ua  fy -by-wire  technology  [Ref.  41],  The  discussion  will  continue 
with  a  oriel'  description  of  the  aircraft  controi  system  and  dynamic  model  followed  by 
speciiic  carnage  scenarios  which  were  treated  during  the  research  reported  here. 

B.  F  A-18A  SYSTEM  OVERVIEW 

Tiie  F  A-NA  control  augmentation  system  uses  feedback  gain  scheduling,  cross 
a\.s  -a-h  ;s  ruling  mr:  ice  *o  rudder,  and  closed  loop  control  for  acceptable 

c  -y.mif.  ana  aircraft  stamiity  i  iy nag  quality  guidelines  are  based  on  military 
specification  M'l-F-n'SoB  Level  1  requirements  for  high  maneuverability  aircraft 
Ref  -i'  A.r.rui  v-. -i.it;.  margins  are  per  M I  l-F-94900  which  require  6  db  of  gain 
margin  :  or  a..  ..  sed  a  -p  it;  arc  <  ontroi  law  -amputations  are  performed  via  parallel 
a;  -r  -e-'ing  angle  :  .tta-k.  normal  acceleration,  and  dynamic  static  air  data 
•  a  m.  'vo  t:;e  desired  responses  sf  various  flight  conditions.  Figure  S.l  is  taken  from 
Re:  4|  •  o.e  f.ght  -  sr.tr '1  swtem  from  a  functional  level. 

:  c  .  e  '  -arnwes  cl' the  aircraft.  In  the  undamaged 

-  •  ■  c  •  .  ;  ■  .  .  •  ••  \  s  A-un.p.'.si'.ed  '-i.i  symmetric  defection  of  right 

-•  . :  -1  e . :t  a  *:  uiing  edge  naps.  lateral  directional  control  is 

...  -  ,•  / ennui  del'Ovtior.  ol  the  right  and  left  stabilators.  ailerons. 

.•  g  eng-.-  •'  ;-s  .•  ;  owhien  -as  rudder  dellcctions.  Each  flight  control 

.  e:  m  drau  ...  stm\  oactuators  with  known  dynamics.  Rate  gyros 

■  -  -  .••  ..  k  •  rs  pr  •  do  trie  ser.-ed  motion  data  which  is  input  to  the  digital 

■  ••  •  .  -■  \c"i:  g  curing  the  fight  controi  mode. 

f  e  pnmarv  inner  loop  control  is  accomplished  via 
. :  g  1  ut.ivr.  c.u.n  s.  nodule  J  feedback  control.  Control  law 
■  -  :  e'  Phh  a  \pproa<  h  :  m  take  off  and  landing  and  Auto 
■'  c:  •  •.  ;t:e  Auto  Flap  Mode  was  incorporated  in  the 
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C.  F/A-18A  LINEARIZED  DYNAMIC  MODEL 

The  linearized  F/A-18A  continuous  state  variable  model  for  fighter  escort 
configuration  is  as  follows. 

x  =  Ax  +  Bu  (eqn  8.1 ) 


v  =  Cx  +  Du  (eqn  8.2) 

where  the  state  vector  is  composed  of  both  the  longitudinal  and  lateral  aircraft  states. 

T 

x  =  {u  w  q  0  r  p  v  <p)  (eqn  8.3) 

and  the  state  vector  elements  are, 

u  =  forward  velocity 

w  =  vertical  velocity 

q  =  pitch  rate 

0  =  pitch  attitude 

r  =  yaw  rate 

p  =  roll  rate 

v  =  side  velocity 

<p  =  bank  angle 

The  input  vector  u  is  composed  of  the  following  eight  inputs, 

u  =  {dstx  dlex  dtex  p$t  ple  pte  pa  pr}T  (eqn  8.4) 

.  •  J  denotes  symmetric  defections  and  p  denotes  differential  deflections  of  the 
i-  .)•  r  'sti.  leading  edge  flaps  (le),  trailing  edge  flaps  (te),  ailerons  (a),  and  rudders 
1  <•  e.ecm  matrices  were  computed  from  data  in  [Ref.  41)  for  a  flight  condition  of 
•  .-.d  .m  a.titude  of  10.000  feet.  They  are  shown  in  Table  7. 
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The  output  vector,  y,  is, 


v  ■  fq  n2  aa  r  p  n%  1  ^  (eqn  S  5t 

where 

a,  *  normal  acceleration 
aa  =  angle  of  attacx 
nv  =  lateral  acceleration 

D.  F/A-I8A  AUGMENTED  LINEARIZED  DYNAMIC  MODEL 

Rojek  [Ref.  39]  modeled  the  F  A- ISA  aircraft  dynamics  augmented  with 
actuator. sensor  and  feedback,  filter  dynamics  for  the  Auto  Flap  L'p  (light  mode  ir. 
discrete  form. 

Figures  S.3  and  S.4  depict  the  linearized  longitudinal  and  lateral-directional 
control  law  model  coded  in  [Ref.  39].  in  the  figures.  F  denotes  the  gain  <eneduleu 
function  values  and  P  denotes  the  presence  of  a  filter.  Constant  gains  are  denoted  bv 
numerical  values.  Non-linear  components  of  the  full  order  control  law  mode!  noted  in 
[Ref.  41]  were  either  ignored  or  linearized  as  follows. 

a.  Non-linear  dvnamics  of  the  control  laws  such  as  position  limners,  rate  limners, 
dead  band  regions,  and  inertial  couplings  were  ignored. 

b.  Stick  and  rudder  dynamics  were  ignored. 

c.  A  constant  sample  rate  was  assumed  and  therefore  pre-aliasme  filters  were  not 
included  in  the  model.  For  this  thesis,  an  eights  hertz  samrling  rate  was 
invoked. 

d.  Structural  notch  filters  were  ignored  as  structural  modes  were  not  modeled 

e.  As  the  model  was  designed  to  simulate  cruise  flight  conditions,  f'aders  which 
smooth  out  discontinuities  during  system  start  up  and  other  transitional  phases 
were  ignored. 

The  control  law  model  provides  gain  scheduling  as  noted  in  paragraph  VIII  B 
Lead-lag  filtering  is  also  provided  to  shape  the  feedback  responses  and  to  ensure 
acceptable  phase  and  gain  margins  within  the  feedback  paths.  [Ref  39]  presents 
detailed  information  with  regard  to  descretization  of  the  continuous  actuator,  sensor, 
and  control  filter  models  shown  in  [Ref.  41). 

[Ref.  39]  formulated  the  discrete  F  A- ISA  dynamic  model  as  a  lifts  disc 
augmented  state  variable  system.  This  particular  state  variable  form  modeled  the 
discrete  pilot  commands  as  the  input  vector,  utk). 
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TABLF  7 

F  A-18A  SYSTEM  MATRICES  FOR  M  -  0  6,  ALT  -  10,000  FT 


Modeling  in  this  way  incorporates  both  the  control  surface  deflection  commands 
and  feedback  filter  states  within  the  plant  matrix,  A.  In  that  the  control  surface 
deflection  commands  are  the  desired  system  inputs,  u,  and  the  discrete  pilot  commands 
are  the  desired  reference  commands,  6(k),  the  dynamic  model  was  assembled  in  a 
different  manner  than  [Ref.  39].  Equation  8.6  was  reformulated  as  a  reference 
command  vector,  5ik),  and  the  input  vector,  u(k),  was  reformulated  as  the  ten  discrete 
control  surface  inputs  as  follows. 

u  *  (rst  1st  rle  He  rte  he  ra  la  rr  lr)  ^  (eqn  8.7) 

where  r  and  /  denote  right  and  left  control  surfaces  and  st,  !e,  te,  a,  and  r  denote 
stabilator,  leading  edge  flap,  trailing  edge  flap,  aileron,  and  rudder  deflections 
respectively.  Additionally.  Rojek  provided  longitudinal(LON'G)  and  lateral  (LATD) 
gain  matrices  which  modified  the  equations  of  motion  to  accept  individual  control 
surface  deflections  as  systems  inputs.  In  this  way,  coupling  between  the  longitudinal 
aircraft  modes  and  longitudinal  control  surfaces,  and  also  the  lateral  modes  and  control 
surfaces,  are  invoked  via  the  gain  matrix  transformation.  For  symmetric  control 
surface  degradation  where  for  example  both  right  and  left  stabilators  are  degraded  by 
an  equal  amount,  the  aircraft  equations  of  motion  remain  uncoupled  via  the  structure 
of  the  gain  matrices  (LONG. LATD).  If  only  the  right  stabilator  were  degraded 
however,  cross  coupling  of  the  aircraft  modes  would  be  invoked  by  the  gain  matrix 
structures. 

Assembling  the  model  in  this  form  leads  to  a  classical  state  variable 
representation, 

x(k+l)  =  Ax(k)  +  Bu(k)  +  Gj(k)8(k)  (eqn  8.8) 


y(k)  =  Cx(k)  (eqn  8.9) 


u(k)  =  Fy(k)  +  G28(k)  (eqn  8.10) 

where  the  vectors  have  the  following  linear  space  dimensions, 


X  €  53 


y  €  18 

u  €  ^?m= 

8  e^c“3 

Equations  8. 8, 8. 9,  and  8.10  represent  the  F'A-ISA  augmented  linear  dynamic 
model  used  for  che  reconfiguration  studies  presented  :n  this  thesis.  Note  that  tiie 
feedforward  matrices,  Gj  and  G 2<  mathematically  represent  the  addition  of  zeroes  to 
the  closed  loop  system.  Physically  they  represent  command  links  to  the  control 
surfaces  to  aid  in  control  surface  time  response  and  modal  shaping.  They  are  assumed 
constant  within  the  bounds  of  the  reconfiguration  technique  posed  in  this  work  and  will 
not  be  exploited  as  a  degree  of  freedom  for  regaining  the  undamaged  responses.  Only 
the  gain  matrix,  F,  is  assumed  variable  for  reconfiguration  analysis.  Note  additionally 
that  in  the  geometric  terminology  of  Chapter  III,  this  system  is  a  Case  VI  Output 
Feedback  problem  since  m<  /. 

The  right  null  space  Ef  is  of  dimension  forty-five  while  the  left  null  space  E[  is 
dimension  thirty-seven.  Unlike  the  lower  order  L-1011  problem,  these  dimensionally 
dissimilar  null  spaces  will  prove  to  be  significant  since  there  may  be  several  right 
eigenvectors  of  differing  orientations  which  satisfy  the  right  null  space  constraints. 
Subsequent  discussions  will  review  this  concept  in  more  detail.  Equations  8.S  -  8.10 
were  verified  for  accuracy  by  comparing  responses  with  those  of  Rojek  [Ref.  39).  No 
discrepancies  with  the  longitudinal  responses  of  Rojek  were  noted  [Ref.  39]  and 
equations  8.8  through  8.10  were  deemed  correct  for  further  analysis. 

The  augmented  state  vector  x(k)  is  comprised  of  five  individual  state  vectors  as 
follow’s. 

x=<xlonT  xlatT  xactT  xsenT  xcl^T  (eqn8.ll) 


The  augmented  output  vector,  y(k),  is  composed  of  the  sensed  motion  variables 
and  the  control  law  filter  states  which  arise  from  their  state  variable  formulation. 

y  =  [q  nz  aa  r  p  nv  !  xcjlx1^!^  (eqn  8  12) 

By  examining  equation  8.12  and  equation  8."  one  observes  the  structure  ol  'he 
feedback  gam  matrix.  F.  Note  how  this  structure  exposes  ;:ie  feeubacx  .o op'  .n  me 
system  in  a  numerical  fashion.  For  example.  FU.l )  is  the  static  feedback  gam  between 
the  sensed  pitch  rate,  q,  and  the  right  stabilator  deflection  command,  rst.  This  physical 
interpretation  of  the  numerical  structure  of  the  system  is  not  evident  in  [Ref.  3^|  and 
serves  as  a  revealing  source  of  information  for  reconfiguration  analysis.  Note 
additionally  that  the  gain  matrix.  F.  will  remain  constant  unless  diiferent  .'light 
conditions  and.  or  regimes  are  assumed.  Additionally,  if  one  models  control  surface 
degradation  via  changes  in  the  B  matrix,  then  these  constant  F  values  will  invoke 
undesired  modal  responses  subsequent  to  pilot  commands  via  6<k).  It  is  the  intent  of 
the  reconfiguration  technique  to  regain  the  undamaged  response  with  the  same  pilot 
command  inputs.  This,  of  course,  necessitates  changing  F  by  some  quantitative 
amount  SF.  This  is  exactly  what  we  desire  to  determine  by  the  solution  technique 
described  in  Chapter  VII.  Let  us  now  turn  to  some  specific  damage  scenarios  for 
solution. 

E.  THE  SYMMETRIC  DEGRADATION  PROBLEM 

Several  types  of  flight  control  surface  deficiencies  or  damage  classes  were 
presented  in  Chapter  VII  ranked  in  orders  of  severity.  The  initial  type  of  damage  class 
considered  in  this  thesis  was  the  symmetric  degradation  of  control  surface  effectiveness. 
Specifically,  two  cases  of  symmetric  degradation  of  the  right  and  left  stabilators  were 
treated  by  the  reconfiguration  technique.  Case  A  decreased  the  control  effectiveness  of 
both  stabilators  by  25%and  Case  B  decreased  the  effectiveness  by  50%.  Since  this 
type  of  longitudinal  symmetric  damage  does  not  invoke  lateral  coupling,  the  perturbed 
eigenstructure  only  involves  the  longitudinal  dynamics.  This  provides  a  suitable  test 
case  for  the  initial  attempt  at  reconfiguration. 

As  is  the  case  in  all  eigenstructure  synthesis  scenarios,  one  must  become  familiar 
with  the  structure  of  the  system  prior  to  any  design  execution.  In  all  of  the  damaged 
cases  examined  for  this  thesis,  the  design  requirement  was  to  regain  the  undamaged 
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Figure  3.1  F  A- ISA  Flight  Control  System. 
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Figure  8.3  F/A-18A  Longitudinal  Control  Model. 


89 


.'Ni 


greggreFgggroa*  hSfemVJj*  7F^?W&&&FF 


longitudinal  response  to  a  1.0  inch,  3.0  sec  pitch  up  stick  command.  Figure  8.5  depicts 
the  undamaged  longitudinal  responses  to  such  an  input.  Table  8  depicts  the  closed 
loop  eigenvalues  of  the  full  order  system.  Note  that  a  slow  eigenspace  exists  for  a  z- 
plane  eigenvalue  of  greater  than  or  equal  to  0.9535.  A  slow  design  eigenspace  was 
therefore  defined  as  z  £  0.9535  and  reconfiguration  synthesis  for  the  symmetric 
degradation  cases  was  performed  within  this  eighteenth  order  eigenspace.  Table  9 
depicts  the  eigenvectors  of  the  aircraft  eigenspace.  Tables  8  and  9  are  therefore  rhe 
design  dosed  loop  eigenvalues  and  ngnt  eigenvectors  for  this  Case  VI  Output 
Feedback  problem.  In  all  subsequent  cables,  the  aircraft  eigenvectors  are  normalized 
with  respect  to  the  largest  real  magnitude  of  the  aircraft  elements.  Table  10  shows  the 
undamaged  feedback  gam  mattix,  F.  Note  that  the  function  gains  and  filter  transfer 
functions  depicted  in  Figures  8.2  and  8.3  are  transformed  via  the  modeling  technique 
noted  in  paragraph  VIII.D  into  the  elemental  values  of  the  feedback  matrix.  F.  in 
Table  10.  Each  column  represents  the  feedback  gain  values  from  the  sensed  variable  to 
the  respective  control  surface.  For  example  the  static  gain  value  between  pitch  rate,  q, 
and  the  right  stabilator,  rst.  is  0.214. 

Table  1 1  numerically  depicts  the  euclidean  and  ac-norms  of  the  right  and  left  null 
vectors,  £r-  and  £/,  of  the  eighteen  slow  modes.  The  residual  sums,  RESr  and  RES/,  are 
the  sums  of  the  eighteen  individual  euclidean  norms.  Note  that  RESr  is  significantly 
less  than  RES/  and  that  the  primary  modal  contributors  to  RES/  are  the  short  period 
and  phugoid  modes.  It  is  interesting  to  note  that  at  the  outset,  the  bad  actors  with 
respect  to  the  left  null  spaces  are  longitudinal  in  nature. 

Upon  examining  Table  11,  one  would  initially  establish  a  collective  numerical 
threshold  on  the  null  space  membership  criteria  of  0.074838  and  3.3046  respectively.  A 
significant  unknown,  however.is  the  magnitude  of  the  conservative  nature  of  the 
euclidean  norm.  A  collective  measure  of  null  space  residuals  may  indeed  be  too  harsh 
a  criterion  on  eigenvector  acceptance.  Additionally,  as  noted  previously,  eigenvector 
orientation  is  a  significant  input  with  regard  to  acceptance  criteria  when  analyzing  such 
a  high  order  system.  For  example,  a  particular  eigenvector  may  satisfy  a  null  space 
requirement  but  have  undesired  modal  orientation.  An  undesired  orientation  results  in 
responses  which  may  or  may  not  be  acceptable.  The  design  problem  therefore  becomes 
two  fold.  Null  space  constraints  and  proper  orientation  of  the  right  eigenvector  must 
simultaneously  occur  to  ensure  full  performance  recovery.  Performance  recovery'  could 
be  accomplished  in  several  ways.  One  procedure  would  be  to  augment  the  current 
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1.  Case  A 

Symmetric  degradation  of  the  stabilators  was  simulated  b>  modifying  the 
appropriate  elements  of  the  gain  matrices  to  reflect  a  25%  loss  in  control  effectiveness. 
Figures  8.6  and  S.“  depict  the  damaged  pitch  attitude  and  pitch  rate  responses. 
Although  a  relatively  benign  perturbation  to  the  undamaged  response,  this  case  served 
a  valuable  role  in  software  debug  of  RECON F.  ERSPACE.ELSPACE,  and  in  the 
modifications  to  the  [Ref.  39]  code.  Table  12  depicts  the  damaged  eigenvalues  for  Case 
A.  Table  13  shows  the  resulting  perturbed  aircraft  eigenstructure  for  Case  A.  The 
primary  eigenstructure  perturbation  for  Case  A  is  noted  in  the  slower  phugoid  (X  = 
-0.4123)  and  the  short  period  modes.  For  the  slower  phugoid  mode,  the  eigenvalue 
shifted  to  the  right  by  19.4%  with  no  significant  change  in  the  eigenvector.  The 
perturbed  short  period  mode  became  less  damped  and  more  oscillatory  as  the  real  part 
of  the  eigenvalue  moved  to  the  right  by  16.7%  and  up  the  imaginary  axis  by  9.4%. 
The  cumulative  result  is  a  lag  in  both  the  pitch  attitude  and  pitch  rate  responses. 
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F/A-18A  UNDAMAGED  AIRCRAFT  EIGEN STRUCTURE 
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The  initial  test  performed  on  the  desired  eigenstructure  was  the  right  null 
space  constraint.  Table  14  depicts  the  null  space  residuals  for  Case  A.  Note  that 
RESr  is  0.036547  for  this  case  which  compares  favorably  with  that  of  the  undamaged 
(or  nominal)  value.  Therefore  the  desired  right  eigenvectors  were  considered  members 
of  the  Case  A  perturbed  right  null  spaces  and  no  reorientation  was  considered 
necessary.  When  the  left  eigenvectors  were  tested  for  left  null  space  membership,  a 
value  of  RES/  =  125.11  was  obtained.  When  compared  with  a  value  of  3.3046,  it  was 
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TABLE  10 

F/A-18A  UNDAMAGED  FEEDBACK  GAIN  MATRIX 
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TABLE  11 

F/A-18A  NOMINAL  NULL  SPACE  RESIDUALS 
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decided  that  reorienting  the  left  eigenvectors  was  required.  In  particular,  note  that  the 
source  of  left  residual  error  was  predominantly  due  to  the  short  period,  phugoid,  and 
two  of  the  filter  modes,  PHD  and  Y3D.  PHD  is  a  longitudinal  filter  which  sends 
angle  of  attack  data  to  the  collective  flap  commands.  The  Y3D  is  a  lateral  feedback 
filter  which  smooths  yaw  and  roll  rate  feedback  to  the  synchronous  rudder  commands. 
Note  that  the  lateral  aircraft  modes  satisfy  both  right  and  left  perturbed  null  space 
constraints  as  might  be  expected  since  the  degradation  is  in  the  longitudinal  surfaces 
only.  Note  additionally  that  the  three  modes  at  the  bottom  of  Table  14  have  true  zero 
left  residuals  just  as  in  the  undamaged  case.  This  depicts  the  dependence  of  the 
residual  on  the  open  loop  parameters  (A,B,C)  and  show  that  for  some  eigenvalues,  the 
null  space  constraints  will  always  be  satisfied  regardless  of  the  orientation  of  the 
eigenvector.  The  converse  is  also  true,  some  eigenvalues  will  always  invoke  a  null 
space  residual.  The  key  is  to  orient  their  vectors  as  close  as  possible  to  the  desired 
orientation  while  minimizing  the  residual  error. 
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Minimization  of  the  euclidean  norm  of  the  left  null  vector,  e^,  for  each  of 
these  four  modes  was  performed  in  the  following  way.  All  fifty-five  elements  of  the  left 
eigenvector  were  allowed  to  vary  ±0.001  of  their  initial  value  to  provide  freedom  to 
rotate  as  close  as  possible  to  the  null  space  invoked  by  the  fixed  eigenvalue.  ADS  was 
then  used  to  minimize  |J  C/||  individually  for  each  of  the  four  modes.  Upon  completion 
of  the  minimization  procedure,  final  values  of  RES.  =  0.043691  and  RES,»  =  37.117 
were  obtained.  Note  that  the  right  residuai  sum  maintained  an  acceptable  vaiue  during 
minimization  of  the  left  null  vector  norms.  This  is  demonstrative  of  the  higher 
dimension  of  the  right  null  space, (d(Ef)  =  p  *  45)  as  compared  with  that  of  the  left 
null  space  (d(E^)  =  q  *  37).  Subsequent  to  the  minimization,  the  fast  eigenspace  was 
preserved  by  inserting  the  undamaged  elements  9-43,45,  and  47  into  the  37  fast  modes 
of  the  right  eigenvector  matrix.  The  reconfigured  feedback  gains  were  then  computed 
and  responses  were  plotted.  In  essence,  this  is  a  reduced  order  design  method  and 
proved  successful  for  the  symmetric  degradation  cases. 

Table  15  shows  the  reconfigured  feedback  gains  for  Case  A.  Note  that  the 
reconfigured  gains  invoke  deflection  commands  to  the  leading  and  trailing  edge  flaps 
via  pitch  rate,  normal  acceleration,  and  angle  of  attack  feedback  paths.  Additionally, 
feedback  gains  are  now  present  in  the  angle  of  attack  to  stabilator  feedback  path. 
Note  that  these  paths  are  not  present  in  the  longitudinal  control  model  of  Figure  S.3. 
This  solution  therefore  would  require  a  modification  to  the  aircraft  control  system. 
Additionally  there  are  feedback  gains  between  selected  filter  states  and  the 
leading,  trailing  edge  surfaces.  These  particular  filter  states  correspond  to  the  pitch  rate 
to  collective  stabilator,  normal  acceleration  to  collective  stabilator.  pitch  stick  to 
collective  stabilator,  and  angle  of  attack  to  collective  leading  flap  feedback  filters.  This 
longitudinal  reconfiguration  was  implicitly  invoked  by  the  design  technique  described 
above.  Table  16  depicts  the  reconfigured  eigenstructure  for  Case  A.  Note  the  slower 
phugoid  (X  -  -0.4616)  has  been  shifted  to  90.24%  of  the  undamaged  value  which  is  a 
9.59%  improvement  over  the  damaged  eigenvalue  location.  Also  noteworthy  is  the 
weak  modal  coupling  to  forward  and  vertical  velocity  in  the  spiral  mode.  Similarly, 
there  is  weak  coupling  to  side  velocity  in  the  reconfigured  short  period.  Figures  S.8 
amd  8.9  show  the  reconfigured  pitch  attitude  and  pitch  rate  responses.  Note  that  the 
undamaged  responses  were  not  exactly  regained,  but  the  reconfigured  responses  show 
positive  signs  toward  performance  recovery.  This  is  indicative  of  satisfying  the  null 
space  constraints  while  not  invoking  a  constraint  on  the  orientation  of  the  right 
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TABLE  12 

CASE  A  (25%  SYMMETRIC)  DAMAGED  C-LOOP  EIGENVALUES 


Z-  Plane  Roots  S-  Plane  Roots 


1.0000 

O.OOOOJ 

0.000 

O.OOOJ 

1.0000 

O.OOOOJ 

0.000 

o.oooj 

1.0000 

O.OOOOJ 

0.003 

O.OOOJ 

1.0000 

O.OOOOJ 

0.003 

O.OOOJ 

0.9998 

O.OOOOJ 

■0.019 

O.OOOJ 

0.9949 

O.OOOOJ 

-0.412 

O.OOOJ 

0.9876 

O.OOOOJ 

-1.000 

O.OOOJ 

0.9863 

O.OOOOJ 

-1.104 

O.OOOJ 

0.9821 

O.OOOOJ 

-1.443 

O.OOOJ 

0.9753 

O.OOOOJ 

-2.000 

O.OOOJ 

0.9753 

O.OOOOJ 

-2.000 

O.OOOJ 

0.9753 

O.OOOOJ 

-2.004 

O.OOOJ 

0.9645 

O.OOOOJ 

-2.892 

O.OOOJ 

0.9764 

-0.03 19  J 

-1.869 

-2.615J 

0.9764 

0.03 19 J 

- 1.869 

2.615  J 

0.9575 

O.OOOOJ 

-3.477 

O.OOOJ 

0.9759 

-0.036  IJ 

-1.899 

-2.956J 

0.9759 

0.036 IJ 

-1.899 

2.956J 

0.8406 

O.OOOOJ 

-13.886 

o.oooj 

0.7519 

O.OOOOJ 

-22.809 

o.oooj 

0.7109 

O.OOOOJ 

-27.292 

o.oooj 

0.7106 

O.OOOOJ 

-27.328 

O.OOOJ 

0.6988 

-0.2220J 

-24.821 

-24.61 2J 

0.6988 

0.2220J 

-24.821 

24.6 12J 

0.6985 

-0.2223J 

-24.849 

-24.65 IJ 

0.6985 

0.2223J 

-24.849 

24.65  IJ 

0.7642 

0.3236J 

-14.915 

32.043J 

0.7642 

-0.3236J 

-14.915 

-32.043J 

0.7596 

-0.3344J 

-14.908 

-33.175J 

0.7596 

0.3344J 

-14.908 

33.175J 

0.4907 

-0.061 3J 

-56.335 

-9.938J 

0.4907 

0.06 13J 

-56.335 

9.938J 

0.4119 

O.OOOOJ 

-70.956 

O.OOOJ 

0.4267 

0.3259J 

-49.749 

52.187J 

0.4267 

-0.3259J 

-49.749 

-52.187J 

0.4191 

0.3947J 

-44.173 

60.434J 

0.4191 

-0.3947J 

-44.173 

-60.434J 

0.4181 

0.3950J 

-44.250 

60.555J 

0.4181 

-0.3950J 

-44.250 

-60.555J 

0.3601 

O.OOOOJ 

-81.707 

O.OOOJ 

0.3601 

O.OOOOJ 

-81. 70S 

O.OOOJ 

0.2251 

-0.4027J 

-61.888 

-84.888J 

0.2251 

0.4027J 

-61.888 

84.88SJ 

0.2238 

0.40 19J 

-62.117 

85.0 18J 

0.2238 

-0.40 19J 

-62.117 

-85.018J 

0.1226 

O.OOOOJ 

-167.882 

O.OOOJ 

0.1219 

O.OOOOJ 

-168.385 

O.OOOJ 

0.1208 

O.OOOOJ 

-169.101 

O.OOOJ 

-0.0042 

-0.0203J 

-309.929 

-141.91 0  J 

-0.0042 

0.0203J 

-309.929 

141.910J 

0.0017 

-0.0083J 

-381.587 

-109.565J 

0.0017 

0.00S3J 

-381.587 

109.565J 

0.0032 

O.OOOOJ 

-458.818 

O.OOOJ 

0.0032 

O.OOOOJ 

-460.648 

O.OOOJ 

0.0031 

O.OOOOJ 

-461.242 

O.OOOJ 

Mode 


Spiral 

Phugoid 

Phugoid 


Roll 

Dutch  Roll 
Dutch  Roll 

Short  Period 
Short  Period 


TABLE  13 

CASE  A  (25% SYMMETRIC  DAMAGE)  AIRCRAFT 
EIGENSTRL'CTURE 


Spiral 

Phugoid 

Phugoid 

X  =  0.0029 

X  = -0.0 187  + O.OOOOJ 

X  =  -0.41 23- 

•O.OOOOJ 

0.0000 

0.0000J 

1.0000 

O.OOOOJ 

0.4938 

O.OOOOJ 

0.0000 

0.0000J 

-0.0564 

O.OOOOJ 

-1.0000 

O.OOOOJ 

o.ouoo 

0.0000J 

0.0000 

O.OOOOJ 

-0.0016 

O.OOOOJ 

0.0000 

0.0000J 

0.0000 

O.OOOOJ 

0.0039 

O.OOOOJ 

-0.7765 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-0.0494 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-0.0029 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-1.0000 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

Roll 

Dutch  Roll 

Dutch  Roll 

X  = -2.8919 

X  =  -1.8691 

-2.6I53J 

X  =  -1.8691  +  2.6153J 

0.0000 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

0.0000J 

0.0000 

O.OOOOJ 

0.0000 

o.ooooj 

1.0000 

0.0000J 

1.0000 

-60.474J 

1.0000 

60.474J 

0.0037 

0.0000J 

0.2549 

-0.1567J 

0.2549 

0. 1567J 

0.0475 

0.0000J 

-0.2563 

0.5983J 

-0.2563 

-0.5983J 

-0.0164 

O.OOOOJ 

-0.1051 

-0.1731J 

-0.1051 

0.1731J 

Short  Period 


Short  Period 


X  *  -1. 8994-2. 9561J 

X- -1.8994+ 2.956IJ 

0.0056 

-0.0083J 

0.0056 

0.0083J 

-1.0000 

-0.45 14J 

-1.0000 

0.45 14J 

-0.0007 

0.0052J 

-0.0007 

-0.005  2J 

-0.0011 

-0.00 10J 

-0.0011 

0.00 10J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

o.ooooj 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

eigenvector.  Although  the  reconfigured  gains  provide  positive  steps  toward  regaining 
the  undamaged  response,  full  performance  recovery  was  not  obtained  due  to  the 
undesirable  orientation  of  the  longitudinal  right  eigenvectors. 

2.  Case  B 

Figures  8.10  and  8.11  show  the  damaged  longitudinal  responses  for  the  50% 
symmetric  degradation  case.  Tables  17  and  18  depict  the  perturbed  full  order  and 
aircraft  eigenstructures  respectively.  Table  19  shows  the  null  space  residuals.  Note 
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TABLE  14 

CASE  A  NULL  SPACE  RESIDUALS 


Mode 


ShPer 

ShPer 

PHD 

DRoll 

DRoll 

FPhug 

Y3D 

Roll 

SPhug 

Filtr 

Filtr 

Filtr 

Filtr 

Filtr 

Filtr 

Spira 

Filtr 

Filtr 


RESr=DlErill  =  0.36547E-01 
RESi=V||cli||  =  0.  12511E+03 

l!EriH2  Heii  II 2 


2 -Norm 

0. 34926E-02 
0. 34926E-02 
0. 29547E-02 
0. 43344E-02 
0. 43344E-02 
0. 19289E-02 
0. 21797E-02 
0. 43476E-02 
0. 29235E-03 
0. 687S9E-04 
0. 14587E-02 
0. 72043E-02 
0. 28572E-11 
0. 25527E-12 
0. 45755E-03 
0. 89445E-10 
0. 49205E-12 
0. 00000E+Q0 


^-Norm 

0.  3 1823E-02 
0.  3 1823E-02 
0. 26955E-02 
0. 36901E-02 
0. 36901E-02 
0. 1754SE-02 
0. 19839E-02 
0. 37847E-02 
0. 26580E-03 
0. 52844E-04 
0. 13553E-02 
0. 65518E-02 
0. 20878E-11 
0. 17498E- 12 
0. 45448E-03 
0. 78303E- 10 
0. 38527E- 12 
0. OOOOOE+OO 


2-Norm 

0. 33484E+02 
0. 33484E+02 
0. 37790E+02 
0. 90522E-02 
0. 90522E-02 
0. 10999E+02 
0. 68938E+01 
0. 10488E+00 
0. 15057E+01 
0. 2C671E-01 
0. 11536E-01 
0. 69335E+00 
0. 27317E-01 
0. 23 157E-01 
0. 51955E-01 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


30  norm 

23673E+02 
23673E+02 
26721E+02 
70056E- 13 
70056E-13 
77762E+01 
48743E+01 
17306E- 12 
12600E+01 
11079E- 14  | 
14597E- 14 
12940E-05  I 
33852E-15  ! 
56116E-08  j 
65734E- 15  I 
OOOOOE+OO 
OOOOOE+OO 
OOOOOE+OO 


that  the  bad  actors  are  again  the  short  period,  fast  phugoid,  and  the  same  filter  modes 
as  Case  A.  Additionally  note  the  doubling  of  the  residual  sums  from  Case  A  to  Case 
B.  The  design  procedure  noted  above  for  Case  A  was  repeated  for  this  case.  Tables  20 
and  21  show  the  reconfigured  feedback  gains  and  aircraft  eigenstructure  for  Case  B. 
Figures  8.12  and  8.13  show  the  reconfigured  responses. 

The  lack  of  full  performance  recovery  is  more  clearly  demonstrated  in  these 
reconfigured  responses.  Note  that  although  the  reconfigured  phugoid  (L  =  -0.3699) 
eigenvalue  is  a  26.25%  improvement  over  the  damaged  eigenvalue  position  (L  = 
-0.293),  it  is  27.73%  slower  than  the  undamaged  value  of  -0.511.  The  reconfigured 
short  period  eigenvalue  (k  —  -1.505  ±j3.013)  has  not  been  shifted  and  has  less  modal 
coupling  to  vertical  velocity  (-1.0000  ±j0.8656)  than  the  undamaged  short  period 
modes  (-1.0000  ±jl.  17738).  The  response  curves  also  indicate  that  although  the  null 
space  constraints  have  been  met,  performance  has  not  been  fully  recovered  due.  in 
part,  to  the  reorientation  of  the  phugoid  and  short  period  right  eigenvectors. 
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TABLE  15 

RECONFIGURED  FEEDBACK  GAINS  FOR  CASE  A  DAMAGE 


RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 

RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 


0.214E^0O 
0.214E  +  00 
-0.355E-02 
-0.355E-02 
0.608E-02 
0.608E-02 
O.OOOE  +  OO 
O.OOOE  +  OO 
0.000E  +  00 
0.000 E +  00 
P 

0.240E-01 
-0.240E-01 
0.000E  +  00 
0.000E  +  00 
0. 192E-01 
-0. 192E-01 
0.600E-01 
-0.600E-01 
0.388E  +  00 
0.38SE  +  00 


NZ 

-0.131E  +  00 
-0.13IE  +  00 
0.745E-02 
0.745E-02 
-0.959E-02 
-O.959E-02 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 
NY 

O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
-0.264E-03 
O.OOOE +  00 
O.OOOE  +  00 
O.OOOE  +  00 
0. 165E  +  02 
0. 165E  +  02 


AA 

0.459E-03 
0.459  E-03 
0.267E-01 
0.267E-01 
0.462E-02 
0.462E-02 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
Cl 

-0.261E-02 
-0.261  E-02 
-0.502E-03 
-0.502E-03 
0.531  E-03 
0.531  E-03 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  *  00 
O.OOOE  +  OO 


R 

O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
o.OooE -00 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
0.689E  +  00 
0.689E  +  00 
C2 

0.747E-03 
0.747E-03 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  -  00 
O.OOOE  t  00 


C3 

C4 

C5 

C6 

RST 

-0.194E-01 

-0.210E  +  00 

-0.387E-0I 

O.OOOE  +  00 

LSI 

-0. 194E-01 

-0.2 10E  +  00 

-0.387E-01 

O.OOOE  +  00 

RLE  -0.373E-02 

0.941  E-02 

-0.746E-02 

0.41 3E-01 

LLE 

-0.373E-02 

0.941  E-02 

-0.746E-02 

0.413E-01 

RTE 

0.395E-02 

-0. 125E-01 

0.790E-02 

O.OOOE  +  00 

LIE 

0.395E-02 

-0. 125E-01 

0.790E-02 

O.OOOE  +  00 

RA 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  OO 

O.OOOE  +  OO 

LA 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  ^  00 

RR 

O.OOOE  +  OO 

O.OOOE  +  00 

O.OOOE  +  OO 

O.OOOE  +  00 

LR 

O.OOOE  +  OO 

O.OOOE  +  OO 

O.OOOE  +  OO 

O.OOOE  +  00 

C7 

C8 

C9 

CIO 

RST 

O.OOOE  +  00 

O.OOOE  +  OO 

O.OOOE  +  00 

O.OOOE  +  OO 

LSI 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  OO 

RLE 

0.436E-03 

O.OOOE  +  OO 

O.OOOE  +  00 

O.OOOE  +  00 

LLE 

0.436E-03 

O.OOOE  +  OO 

O.OOOE  +  OO 

O.OOOE  +  00 

R1E 

0.2 14E-01 

O.OOOE  +  00 

O.OOOE  +  OO 

O.OOOE  00 

LIE 

0.214E-01 

O.OOOE  +  OO 

O.OOOE  +  00 

O.OOOE  +  OO 

RA 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  00 

LA 

O.OOOE  +  OO 

O.OOOE  +  00 

O.OOOE  +  00 

O.OOOE  +  OO 

RR 

O.OOOE  +  OO 

-0.S56E-02 

-0.494E-02  • 

O.OOOE  +  00 

LR 

O.OOOE  +  OO 

-0.856E-02 

-0.494E-02 

O.OOOE  +  00 

Cll 

C12 

RST 

O.OOOE  +  00 

O.OOOE  +  OO 

LSI 

O.OOOE  +  00 

O.OOOE  +  OO 

RLE 

O.OOOE  +  OO 

O.OOOE  +  OO 

LLE 

O.OOOE  +  00 

O.OOOE  +  00 

RIE 

O.OOOE  +  00 

O.OOOE  +  OO 

LIE 

O.OOOE  +  OO 

O.OOOE  +  OO 

RA 

O.OOOE  +  OO 

O.OOOE  +  OO 

LA 

O.OOOE  +  00 

O.OOOE  +  OO 

RR 

0.3 18E-02 

O.OOOE  +  OO 

LR 

0.318E-02 

O.OOOE  +  OO 

TABLE  16 

CASE  A  RECONFIGURED  AIRCRAFT  EIGEXSTRUCTL RE 


Spiral 

Phugoid 

Phugoid 

X  «  0.0029 

X  = -0.0183  + O.OOOOJ 

X  =  -0.4616-0.0000J 

0.0047 

O.OOOOJ 

1.0000 

O.OOOOJ 

-0.4260 

O.OOOOJ 

-0.0004 

o.ooooj 

-0.0549 

•KOI  >00  j 

1 .0000 

o  oonoj 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0017 

O.oooOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-0.0037 

o.ooooj 

-0.7769 

O.OOOOJ 

0.0000 

o.ooooj 

-0.0002 

O.OOOOJ 

-0.0494 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-0.0029 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-1.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

Roll 

Dutch  Roll 

Dutch  Roll 

X  =  -2.S919 

X  =  - 1 .8693-2.61 52J 

X  =  -1.8693  +  2.6152J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

o.ooooj 

0.0000 

o.ooooj 

0.0000 

o.ooooj 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-1.0000 

O.OOOOJ 

-1.0000 

-0.0130J 

-1.0000 

0.0130J 

-0.0037 

O.OOOOJ 

-0.0026 

-0.004 2J 

-0.0026 

0.0042J 

-0.0475 

O.OOOOJ 

0.0099 

0.0042J 

0.0099 

-0.004  2J 

0.0164 

O.OOOOJ 

-0.0029 

0.00 17J 

-0.0029 

-0.00 17J 

Short  Period 

Short  Period 

X  =  -1.8758- 

■2.929 1 J 

X  =  -1.8758  +  2. 9291J 

-0.0222 

-0.0128J 

-0.0222 

0.0128J 

-1.0000 

-2.5686J 

-1.0000 

2.5686J 

0.0129 

0.00 14J 

0.0129 

-0.00 14J 

-0.0023 

-0.0029J 

-0.0023 

0.0029J 

-0.0014 

-0.00 10J 

-0.0014 

0.00 10J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

The  design  procedure  for  Case  B  was  therefore  modified  to  enhance 
performance  recovery  in  the  following  way.  Inspection  of  the  left  residual  null  vector. 
C/j,  for  the  short  period,  phugoid,  and  PI  ID  filter  modes  revealed  that  the  residuals 
were  predominantly  due  to  the  real  part  of  the  null  vector.  In  order  to  reduce  the 
norm  of  the  residuals,  the  real  parts  of  fast  elements  (9-43,45,47)  were  therefore 
unrestricted  during  the  minimization.  In  this  way  the  elements  of  the  slow  left 
eigenvector  which  corresponded  to  the  faster  actuator  and  sensor  modes,  were  allowed 
to  assume  the  dominant  role  in  the  orientation.  Upon  completion  of  this  minimization. 


LEGEND 

o  =  UNDAMAGED  PITCH  RATE 
x  =  25%  STM  DAMAGED  PITCH  RATE 
o  =  RECONFIGURED  PITCH  RATE 


Figure  8.9  Case  A  Reconfigured  Pitch  Rate  Response. 
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final  values  of  RESr  =  0.07127  and  RES/  -  72.7  were  obtained.  Again  note  the  right 
residual  sum,  RESr,  indicates  that  the  new  right  eigenvectors  remain  in  the  allowable 
right  null  space.  The  fast  eigenspace  was  inserted  into  the  thirty-seven  fast  modes  in  a 
similar  fashion  as  before  and  the  reconfigured  gains  were  recomputed. 

The  resulting  eigenstructure  revealed  that  performance  had  improved 
somewhat  but  additional  recovery  was  required.  The  fast  phugoid.  short  period,  and 
P9D  liiter  modes  exhibited  short  falls  when  compared  :o  the  undamaged  modai 
structure.  As  noted  previously,  a  procedure  at  this  point  would  be  to  compare  the 
present  right  eigenvectors  with  those  which  give  rise  to  performance  recover.’  but 
perhaps  a  penalty  in  the  eigenvalue  location.  One  such  design  was  performed  in  the 
following  fashion.  By  modifying  the  objective  function  during  the  ADS  minimization 
to  represent  the  absolute  value  of  the  sum  of  the  components  of  the  left  null  vector. 
a  different  set  of  right  eigenvectors  was  computed.  As  these  particular  eigenvectors 
gave  rise  to  a  RES /  =  199.5  and  RESf  =  0.0066.  the  resulting  closed  loop  eigenvalues 
were  not  exactly  invoked  due  to  the  value  of  RES/  .  However,  the  response  of  the 
system  exhibited  better  performance  recovery.  Upon  comparing  the  slow  phugoid. 
short  period,  and  P9D  filter  modal  structures  with  these  better  performing  structures, 
noted  differences  in  the  structure  were  evident.  Therefore,  the  right  eigenvector  modes 
for  the  slow  phugoid.  short  period,  and  P9D  filter  were  replaced  with  the  better 
performing  vectors  which  gave  rise  to  better  performance  recovery.  The  new 
reconfigured  gains  and  aircraft  eigenstructure  are  shown  in  Tables  22  and  23.  The 
responses  are  shown  in  Figures  8.14  and  8.15.  Note  the  shift  of  the  phugoid  to 
-0.43006  and  the  modal  structure  of  the  short  period.  The  slow  phugoid  has  been 
shifted  to  84.1%  of  the  undamaged  value  vice  72.4%  in  the  first  Case  B  design.  This  is 
a  26.8%  increase  over  the  damaged  slow  phugoid  location  vice  a  15.1%  increase  in  the 
first  design.  Note  the  improved  responses  in  Figures  8.14  and  8.15. 

This  particular  method  of  performance  recovery  is  not  to  be  taken  as  a 
standard  by  any  means.  It  is  simply  one  which  was  successful  for  the  design  problem 
at  hand.  Further  research  would  entail  developing  a  more  systematic  procedure  for 
recovering  desired  performance.  For  example,  if  one  were  to  simply  insert  the 
undamaged  modal  structures  for  the  slow  phugoid,  short  period,  and  P9D  liiter. 
performance  would  improve  but  at  the  expense  of  the  slow  eigenvalue  locations. 

In  summary,  one  converged  on  an  allowable  eigenvector  set  which  will  invoke 
eigenvalue  locations  via  the  feedback  gain  equation  but  lacks  full  performance  recovery 
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in  the  short  period  and  slow  phugoid  modes.  Performance  recovery  was  obtained  by 
comparing  modal  short  falls  with  a  right  eigenvector  set  which  was  known  to  give  rise 
to  better  performance  recovery  and  then  inserting  the  better  performing  modal 
structures.  Feedback  gains  were  then  recomputed  and  the  responses  improved. 

F.  THE  ASYMMETRIC  DEGRADATION  PROBLEM 

Asymmetric  stabilator  degradation  was  simulated  by  linearly  decreasing  only  the 
right  stabilator  control  effectiveness  via  appropriate  modification  of  the  gain  matrix. 
Tables  24  and  25  show  the  perturbed  fuil  order  eigenvalues  and  aircraft  eigenstructure 
respectively.  The  predominant  change  in  the  location  of  the  eigenvalues  occur  in  the 
slower  phugoid  (X  =  -  0.464)  and  short  period  modes  which  is  the  same  pattern  as 
Case  A.  The  significant  difference  however  between  Case  C  and  the  symmetric  cases 
lie  in  the  eigenvectors  of  the  aircraft  modes.  Note  the  modal  cross  coupling  for  all  the 
aircraft  modes  in  Table  25.  The  significant  cross  coupling  terms  are  noted  as  the  roll 
mode  coupling  to  vertical  velocity,  the  short  period  coupling  to  side  velocity,  the  spiral 
mode  coupling  to  forward  velocity,  and  dutch  roll  mode  coupling  to  vertical  velocity. 
Figures  8.14  through  8.17  show  the  resulting  damaged  responses  to  the  1.0  in  3.0  sec 
longitudinal  command.  The  longitudinal  responses  are  rather  benign,  however  the 
resulting  undesired  bank  angle  and  yaw  rate  responses  are  clearly  depicted.  This  bank 
angle  and  yaw  rate  coupling  was  of  course  not  present  for  the  symmetric  degradation 
cases. 

A  solution  method  posed  for  this  problem  involves  a  superposition  technique. 
Since  the  25%  symmetric  case  has  been  solved,  one  already  has  computed  the  gains 
which  reconfigure  such  a  system.  A  superposition  technique  would  allow  one  to  use 
the  portion  of  these  gains  which  would  symmetrically  balance  the  asymmetric  control 
deficiency.  Once  the  aircraft  has  regained  its  undamaged  response,  these  balancing 
gains  would  then  be  removed  and  the  gain  values  would  be  reset  to  their  unperturbed 
values.  The  decision  as  to  whether  the  aircraft  had  regained  its  undamaged 
longitudinal  structure  could  then  be  based  on  the  presence  of  roll  or  yaw.  If  one  used, 
for  example,  bank  angle  sensing  as  decision  criteria,  one  in  effect  has  designed  a  roll 
detection  reconfiguration  controller.  This  type  of  controller  was  used  as  a  solution 
technique.  Note  that  this  technique  is  actually  a  digital  switch  which  is  evident  upon 
examining  the  reconfigured  responses  in  Figures  8.16  through  8.19.  A  system 
advantage  of  such  a  controller  might  be  that  one  would  be  required  to  store  symmetric 
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Figure  8.11  Case  B  Damaged  Pitch  Rate  Response. 
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reconfiguration  gains  only.  Asymmetric  reconfiguration  could  then  be  invoked  by  a 
roll  detection  switch.  Figures  8.16  through  8.17  depict  the  reconfigured  responses 
subsequent  to  such  a  reconfiguration  technique.  Table  24  shows  the  reconfigured  gains 
which  are  invoked  during  the  time  the  aircraft  is  experiencing  unacceptable  bank 
angles.  Note  that  the  bank  angle  response,  although  oscillatory,  exhibits  far  less 
coupling.  The  yaw  rate  response  is  also  oscillatory  and  has  decreased  in  amplitude. 
Additional  research  would  involve  investigating  the  origin  of  the  oscillation  and 
perform  a  smoothing  of  the  responses.  The  important  item  here  is  that  the  technique 
exhibits  successful  regaining  of  the  undamaged  bank  angle  response.  One  would  then 
be  able  to  solve  several  asymmetric  problems  using  the  corresponding  symmetric 
solutions. 
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TABLE  17 


CASE  B(50%  SYMMETRIC)  DAMAGED  C-LOOP  EIGENVALUES 


Z- Plane  Roots 


S-Plane  Roots 


1.0000 
1.0000 
1.0000 
1.0000 
0.9997 
0.9963 
0.9876 
0.9868 
0.9821 
0.9753 
0.9753 
0.9753 
0.9646 
0.9764 
0.9764 
0.9595 
0.9804 
0.9804 
0.8403 
0.-435 
0.7  log 
0.7107 
0.69SS 
0.69SS 
0.6985 
0.6985 
0.7625 
0.7625 
0.7595 
0.7595 
0.4907 
0.4907 
0.4119 
0.4267 
0.4267 
0.4191 
0.4191 
0.4181 
0.41  SI 
0.3601 
0.3601 
0.2247 
0.2247 
0.2238 
0.2238 
0.1226 
0.1222 
0.1208 
-0.0042 
-0.0042 
0.0017 
0.0017 
0.0032 
0.0032 
0.0031 


0.0000J 

O.OOOOJ 

0.0000J 

I ).  (»()()( )J 

O.OOOOJ 
O.OOOOJ 
O.OOOOJ 
O.OOOOJ 
O.OOOOJ 
O.OOOOJ 
O.OOOOJ 
O.OOOOJ 
O.OOOOJ 
•0.03 19 J 
0.0319J 
O.OOOOJ 
•0.0375J 
0.037 5 J 
O.OOOOJ 
O.OOOOJ 
O.OOOOJ 
O.OOOOJ 
-0.2220J 
0.2220J 
-0.2223J 
0.2223J 
-0.3274J 
0.3274J 
0.3345J 
-0.3345J 
-0.061 2J 
0.06 12J 
O.OOOOJ 
0.3259J 
-0.3259J 
0.J947J 
-0.3947J 
-O.3950J 
0.3950J 
O.OOOOJ 
O.OOOOJ 
0.4U24J 
-0.4024J 
0.40 19J 
-0.40 19J 
O.OOOOJ 
OOOOOJ 
O.OOOOJ 
-0.0203J 
0.0203J 
0.0084J 
-0.0084J 
O.OOOOJ 
O.OOOOJ 
O.OOOOJ 


0.000 
0.000 
0.003 
0.003 
•0.022 
•0.293 
-1.000 
-1.066 
-1.442 
-2.000 
-2.000 
-2.004 
-2.880 
•1.868 
•1.868 
-3.306 
•1.527 
-1.527 
-13.922 
-23.710 
-27.292 
-27.326 
-24.821 
-24.S21 
-24.848 
-24.84S 
-14.920 
-14.920 
-14.914 
-14.914 
-56.334 
-56.334 
-70.965 
-49.749 
-49.749 
-44.1-3 
-44.173 
-44.250 
-44.250 
-81.707 
-SI. 708 
-61.967 
-61.967 
-62.120 
-62.120 
-167.878 
-168.188 
-169.101 
-309.929 
-309.929 
-380. S71 
-3S0.S7 1 
-459.806 
-460.650 
-461.257 


O.OOOJ 

O.OOOJ 

O.OOOJ 

O.OOOJ 

O.OOOJ 
O.OOOJ 
O.OOOJ 
O.OOOJ 
O.OOOJ 
O.OOOJ 
O.OOOJ 
O.OOOJ 
O.OOOJ 
■2.615J 
2.6I5J 
O.OOOJ 
•3.056J 
3.056J 
O.OOOJ 
O.OOOJ 
O.OOOJ 
O.OOOJ 
-24.6 12J 
24.612J 
-24.652J 
24.652J 
-32.447J 
32.447J 
33.183J 
-33.1S3J 
-9.934J 
9.934J 
O.OOOJ 
52.1S7J 
-52.187J 
60.434J 
-60.434J 
-60.555J 
60.555J 
O.OOOJ 
O.OOOJ 
84.933J 
-84.93  3J 
85.019J 
-85.01 9J 
O.OOOJ 
O.OOOJ 
O.OOOJ 
-141.91 0  J 
141.91 0 J 
109.936J 
-109.936J 
O.OOOJ 
O.OOOJ 
O.OOOJ 


Spiral 

Phugoid 

Phugoid 


Roll 

Dutch  Roll 
Dutch  Roil 

Short  Period 
Short  Period 


•  A 


TABLE  18 


CASE  B  (50%  SYMMETRIC  DAMAGE)  AIRCRAFT 
EIGENSTRLCTL  RE 


Spiral 

Phugoid 

Phugoid 

X-  0.0029  +  O.OOOOJ 

X  =  -0.02 1 6  +  O.OOOOJ 

X* -0.2929 +  O.OOOJ 

0.0000 

0.0000J 

-1.0000 

O.OOOOJ 

0.8985 

O.OOOOJ 

0.0000 

0.0000J 

0.0575 

O.OOOOJ 

-1.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

-0.0016 

O.OOOOJ 

0.0000 

0.0000J 

-0.0001 

O.OOOOJ 

0.0056 

O.OOOOJ 

0.7766 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0494 

o.ooooj 

0.0000 

O.OOOOJ 

0.0000 

o.ooooj 

0.0029 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

1.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

Roll 

Dutch  Roll 

Dutch  Roll 

-2.8796  +  0.0000J 

X  =  -1.8680-2. 6153J 

X*=  -1.86S0+  2.6153J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

1.0000 

O.OOOOJ 

1.0000 

-0.83 15J 

1.0000 

O.S315J 

0.0037 

O.OOOOJ 

0.0061 

0.0020J 

0.0061 

-0.0020J 

0.0473 

O.OOOOJ 

-0.0134 

0.004 1J 

-0.0134 

-0.004 1J 

-0.0164 

O.OOOOJ 

0.0014 

-0.004 1J 

0.0014 

0.0041  J 

Short  Period 

Short  Period 

X  =  -1.5271 

-3.0560J 

X  = -1.5271  + 3. 0560J 

0.0300 

0.0098J 

0.0300 

-0.0098J 

1.0000 

-3.2090J 

1.0000 

3.2090J 

-0.0157 

-0.0025J 

-0.0157 

0.0025J 

0.0027 

-0.0038J 

0.0027 

0.0038J 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

0.0000 

O.OOOOJ 

TABLE  19 

CASE  B  NULL  SPACE  RESIDUALS 


RESr=Xl|eri!|2  =  0.71177E-01 
RES  x  II E  2.  i  H  2  =  0.24853E+03 


Mode 

l|€ril| 

IIeuII 

2-Norm  20 -Norm 

2-Norm 

30  norm 

ShPer  0. 69848E-02  0. 63638E-02  0. 66958E+02  0. 47344E+02 

ShPer  0. 69848E-02  0. 63638E-02  0. 66958E+02  0. 47344E+02 

PHD  0.  59112E-02  0. 53929E-02  0. 75575E+02  0. 53439E+02 

DRoll  0. 80799E-02  0. 75772E-02  0. 18091E-01  0. 70056E-13 

DRoll  0. 80799E-02  0. 75772E-02  0. 18091E-01  0. 70056E-13 

FPhug  0. 38560E-02  0. 35073E-02  0. 21993E+02  0. 15551E+02 

Y3D  0. 43562E-02  0. 39647E-02  0. 13785E+02  0. 97474E+01 
Roll  0. 84017E-02  0. 74468E-02  0. 20977E+00  0. 17306E-12 
SPhug  0. 58469E-03  0. 53156E-03  0. 20722E+01  0. 12600E+01 

Filtr  0. 12966E-03  0. 11710E-03  0. 41343E-01  0. 11079E-14 

Filtr  0.29424E-02  0. 27095E-02  0. 23058E-01  0. 14597E-14 

Filtr  0. 14411E-01  0. 13104E-01  0. 69341E+00  0. 12940E-05 

Filtr  0. 28594E-11  0. 20895E-11  0. 54636E-01  0. 33852E-15 

Filtr  0. 42821E-12  0. 35023E-12  0. 23159E-01  0. 56116E-08 

Filtr  0. 45401E-03  0. 45067E-03  0. 10299E+00  0. 65734E-15 

Spira  0. 17388E-09  0. 15661E-09  0. 00000E+00  0. 00000E+00 

Filtr  0. 50470E-12  0. 38527E-12  0. 00000E+00  0. 00000E+00 

Filtr  0. 00000E+00  0. 00000E+00  0. 00000E+00  0. 00000E+00 
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TABLE  20 

RECONFIGURED  FEEDBACK  GAIN'S  FOR  CASE  B  DAMAGE 


RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 

RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 

RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 


RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 

RST 

LST 

RLE 

UTE 

LTE 

RA 

LA 

RR 

LR 


0.2I4E?00 
0.214E  +  00 
-0.4S0E-02 
-0.480E-02 
0. 1 16E-01 
0.1 16E-01 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 

0.240E-01 
-0.240E-01 
O.OOOE  +  OO 
O.OOOE  +  OO 
0.192E-01 
-0.192E-01 
0.600E-01 
-0.600E-01 
0.388E  +  00 
0.388E  +  00 
C3 

-0.192E-01 
-0.192E-01 
-0.494E-02 
-0.494E-02 
0.727E-02 
0.727E-02 
0.000E  +  00 
0.000E  +  00 
O.OOOE  +  OO 
0.000E  +  00 
C7 

O.OOOE  +  OO 
O.OOOE  +  OO 
0.589E-03 
0.589E-03 
0.210E-01 
0.210E-01 
0.000E  +  00 
0.000E  +  00 
O.OOOE  +  OO 
0.000E  +  00 
Cl  l 

O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
0.317E-02 
0.318E-02 


NZ 

-0.131E  +  00 
-0.13  IE +  00 
0.993E-02 
0.993E-02 
-0. 179E-01 
-0. 179E-01 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 

NY 

O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
-0.240E-03 
-0.141E-03 
O.OOOE  +  OO 
O.OOOE  +  OO 
0. 165E  +  02 
0.165E  +  02 

C4 

-0.21  IE +  00 
-0.211E  +  00 
0.126E-01 
0. 126E-01 
-0.235E-01 
-0.235E-01 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 

cs 

O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 
-0.856E-02 
-0.856E-02 

C12 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 


AA 

0.256E-03 
0.256E-03 
0.2S5E-01 
0.285E-01 
-0.S52E-03 
-0.843E-03 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  <X) 
O.OOOE  +  OO 
Cl 

-0.258E-02 
-0.25SE-02 
-0.664E-03 
-0.664E-03 
0.978E-03 
0.978E-03 
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CASE  B  RECONFIGURED  AIRCRAFT  El  GEN  STRUCTURE 
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Figure  S.12  Case  B  Reconfigured  Pitch  Attitude  Response. 
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PERFORMANCE  RECOVERY  FEEDBACK  GAINS  FOR  CASE  B 

DAMAGE 
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CASE  B  PERFORMANCE  RECOVERY  AIRCRAFT  EIGENSTRUCTURE 
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Figure  8.15  Case  B  Performance  Recovery'  Pitch  Rate  Response. 
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TABLE  24 

CASE  C(25%  ASYMMETRIC)  DAMAGED  C-LOOP  EIGENVALUES 
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CASE  C  (25%  ASYMMETRIC  DAMAGE)  AIRCRAFT 
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Figure  8.16  Case  C  Bank  Angle  Responses. 
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TABLE  26 

RECONFIGURED  FEEDBACK  GAINS  FOR  CASE  C  DAMAGE 


RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 


RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 

RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 


RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 

RST 

LST 

RLE 

LLE 

RTE 

LTE 

RA 

LA 

RR 

LR 


Q 

0.214E +-00 
0.214E  +  00 
O.OOOE  +  OO 
-0.209E-02 
O.U00E  -r  oO 
0.394E-02 
0.000 E  +  00 
0.000E  +  00 
0.000E  +  00 
0.000E  +  00 
P 

0.240E-01 
-0.240E-01 
O.OOOE  +  OO 
O.OOOE  +  OO 
0.192E-01 
-0. 192E-01 
0.600E-01 
-0.600E-01 
0.388E  +  00 
0.3S8E  +  00 
C3 

-0.191E-01 
-0. 193E-01 
0.000E  +  00 
-0.271E-02 
O.OOOE  +  OO 
0.240E-02 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
C7 

O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
-0.252E-02 
0.219E-01 
0.241E-01 
O.OOOE +  00 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
Cl  l 

O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  00 
0.317E-02 
0.318E-02 


NZ 

-0. 13  IE  +  00 
-0.13IE  +  00 
O.OOOE  +  OO 
0.214E-02 
O.OOOE +  00 
-O.208E-02 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
NY 

O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
0.165E  +  02 
0. 165E  +  02 
C4 

-0.21  IE +  00 
-0.21  IE +  00 
O.OOOE  +  OO 
0.431E-02 
O.OOOE  +  OO 
-0.523E-02 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
C8 

O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
-0.856E-02 
-0.856E-02 
C12 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  00 


AA 

O.OOOE  +  00 
-0.323E-03 
0.209E-01 

-O.320E-<>2 
O.llOE-Ol 
0.427E-01 
O.OOOE -00 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
Cl 

-0.257E-02 
-0.259E-02 
O.OOOE  +  OO 
-0.364E-03 
O.OOOE  +  OO 
0.322E-03 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
C5 

-0.383E-01 
-0.385E-01 
O.OOOE  +  OO 
-0.541  E-02 
O.OOOE  +  OO 
0.479E-02 
O.OOOE -00 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
C9 

O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  00 
-0.494E-02 
-0.494E-02 


R 

O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE +  00 
O.OOOE +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
0.689E  +  00 
0.689E  +  00 
C2 

0.748E-03 
0.748E-03 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 
C6 

O.OOOE  +  OO 
O.OOOE  +  00 
0.412E-01 
0.403  E-01 
O.OOOE  +  OO 
0.210E-02 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
CIO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  00 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  OO 
O.OOOE  +  00 
O.OOOE  +  OO 


IX.  CONCLUSIONS  AND  RECOMMENDATIONS 


Applications  of  eigenstructure  assignment  to  design  of  robust  decoupling  and 
reconfiguring  controllers  has  been  shown  to  be  an  alternative  tool  for  the  control 
system  designer.  A  level  of  sophistication  over  conventional  design  techniques  is 
required  due  :o  the  computational  problems  which  arise  from  high  order  systems. 
Specifically,  the  majority  of  the  computational  complexities  arise  from  the  vast  degrees 
of  freedom  for  eigenvector  orientation  available  in  hyperspace.  As  the  designer  must 
clearly  be  aware  of  the  modal  structure  of  the  system  at  hand,  the  technique  is  not  to 
be  envisioned  as  a  black  box  design  algorithm.  The  designer  must  become  an  active 
participant  during  all  steps  of  the  design.  Further  research  is  recommended  in  the 
following  areas: 

a.  Further  investigation  into  obtaining  performance  recoverv  via  modified 
objective  functions  for  the  reconfiguring  controller  problem  is  warranted. 

b.  Developing  more  efficient  optmization  schemes  for  convergence  to  reoriented 
eigenvectors.  This  will  allow  the  researcher  to  more  actively  engage  in  the  study 
of  the  theoretical  aspects  of  eigenstructure  assignment  bv  relieving  the  burden 
of  computational  time  required  Tor  such  convergence. 

c.  Additional  research  into  analyzing  the  solution  to  the  asvmmetric  degradation 
problem  is  required  for  refinement  of  the  technique.  '  Research  objectives 
associated  with  this  tvpe  of  damage  would  also  involve  modeling  the  cross 
coupling  of  stability  ana  control  derfvatives  for  several  coupling  scenarios. 

d.  Application  of  eigenstructure  assignment  to  design  of  robust  observers  and 
reconfiguring  damaged  observers  is~a  natural  extension  of  the  work  reported  in 
this  theTis. 

In  summary,  applications  of  eigenstructure  assignment  to  damaged  controllers 
has  been  shown  to  provide  solutions  to  a  specific  class  of  aircraft  damage.  Solution 
techniques  to  the  asymmetric  and  symmetric  degradation  problems  must  be  further 
refined  before  progressing  to  the  combined  actuator,  sensor,  control  surface 
degradation  scenarios. 
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NOTATION 


n 

m 

l. 


c . 

A . 

B . 

C . 

D . 

F . 

G1 . 

G2 . 

X . 

A . 

T . 

In . 

A . 

AT . 

A'1  .... 
A+  .... 
SVD(A). 
r 


x. . . 
x(k) 


y 


X;... 

*1  .. 

^min 

l|A||2 


. No.  of  states 

. No.  of  inputs 

. No.  of  outputs 

. No.  of  commands 

. Plant  Matrix  (nxn) 

. Control  Matrix  (nxm) 

. Output  Matrix  (/xn) 

. Feedforward-Output  Matrix  f/xm) 

. Feedback  Gain  Matrix  (mxf) 

. Feedfwd  Command-State  Matrix  (nxc) 

. Feedfwd  Command- Input  Matrix  (mxc) 

. Right  Eigenvector  Matrix  (nxn) 

. Diag  matrix  of  c-loop  eigenvalues 

. Left  Eigenvector  Matrix  (nxn) 

. Identity  Matrix  (nxn) 

. Closed  Loop  Eigenvalue  Matrix  (nxn) 

. Transpose  of  matrix  A 

. Inverse  of  matrix  A 

. Pseudo- Inverse  of  matrix  A 

T 

Singular  Value  Decomposition  of  matrixA=  L'aLaVa 

. Diag  matrix  of  singular  values 

. ith  closed  loop  right  eigenvector 

. dxdt 

. discrete  state  variable 

. ith  closed  loop  left  eigenvector 

. output  vector 

. control  input  vector 

. ith  closed  loop  eigenvalue 

. Max  singular  value 

. Min  singular  value  of  rank(m)  matrix 

. Matrix  Spectal  Norm  of  matrix  A 
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||x||2. . . 
Se  or  N 


Euclidean  Norm  of  vector  x 


d(  )•  .  . 
<j>nxn 


Null  Space 


. dimension  of  (  ) 

Null  Matrix  of  order  nxn 


APPENDIX  B 

CONSTRAINTS  ON  EIGENSTRUCTURE  SPECIFICATION 


In  order  to  show  the  constraints  on  the  specification  of  the  closed  loop 
eigenstructure.  rewrite  equation  5.60  in  file  following  way, 

BFC  =  XAX'1  -  A  (eqnB.l) 

Post  multiplying  equation  B.l  by  X  yields, 


BFCX-XA-AX  (eqn  B.2) 

Now  let  us  define  an  'n  x  n'  transformation  matrix.  Q‘*  [Ref.  25],  such  that  B  is 
transformed  into  a  matrix  with  the  'mxm'  identity  in  the  first  'm'  rows  and  an  n-m  x 
m'  null  matrix  in  the  bottom  'n  -  m'  rows, 

Q  =  {  B  |  lbl}  €  &nxn  (eqn  B.3) 


‘m 


O 


=  B 


(eqn  B.4) 


Im  =  Q'!B  (eqn  B.5) 

<D  ) 

Further,  use  the  transformation  matrix  Q  to  define  the  following  similarity 
transformations, 


CQ  =  (eqn  B.6) 

Q_1X  =  X° 
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(eqn  B.7) 


(eqn  B.S) 


Q^AQ  =  A0 

Pre  multiplying  equation  B.2  by  Q‘*  yields, 

Q^BFCX  =  Q^XA  -  Q-!AX  (eqn  B.9) 


Noting  that  Q**B  results  in  the  lead  identity  matrix  discussed  previously  and 
substituting  the  similarity  form  of  X  yields. 


‘m 


<D 


FCQX0  =  Q^XA  -  Q*]AQX0 


(eqn  B.10) 


Further  substituting  the  similarity  forms  for  C,X,  and  A  into  equation  B.10  yields 
the  similarity  form  of  equation  B.2, 


FC°X°  = 


X°A  -  A°X° 


(eqn  B.l  1) 


In  order  to  simplify  the  analysis,  let  us  remove  the  superscript  notation  for  the 
similarity  transformations  from  equation  B.  11  .  Equation  B.ll  is  then  partitioned  into 
upper  and  lower  blocks. 

The  upper  half  left  hand  block  of  equation  B.  1 1  becomes. 


^CXnx/  ^m xl^l  '  Amxn^n xl 


(eqn  B.12) 


where  the  subscripts  denote  the  row  and  column  dimensions  of  the  respective  matrices. 
Solving  for  F  from  equation  B.12  yields  an  exact  solution  for  F, 


^  ^mxAl  *  Amxn^nx/^^nx/) 


-1 


(eqn  B.13) 


The  lower  block  of  equation  B.ll  yields  the  following  equation, 


^n-mx/  ^n-mx/^/ '  ^n-mxn^nx/ 


(eqn  B.14) 


Equation  B.  14  reveals  that  there  are  'n  -  m’  equations  with  'n'  unknowns  for  each 
closed  loop  eigenvalue  Xj.  Each  of  the  7'  system  of  equations  is  therefore 
underspecified  and  one  can  only  specify 'm'  elements  of  each  column  of  Xnx/.  This  is 
of  course  the  classic  result  of  Srinathkumar  [Ref.  11]  which  is  stated  in  Chapter  II. 
Equation  B.13  is  the  result  noted  in  the  work  by  Srinathkumar  [Ref.  11]  and  Sobel  and 
Shapiro  [Ref.  23].  The  expressions  presented  in  Table  I  of  Chapter  111  as  noted 
previously  are  least  sauare  solutions  for  the  feedback  earns.  Note  that  :i  me  desires  *o 
invoke  n'  eigenvalues  and  n  elements  of  the  eigenvector  in  equation  B.13.  then 
equation  B.13  also  becomes  a  least  square  solution  due  to  CXnw  becoming  non 
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-IGENVALUE/EIGENVECTOR  ASSIGNMENT  VIA  MOORE  1 9  76) 

AND  KAUTSKV.ET.AL.  (1985)  ALGORITHMS.  PRESENT  PROGRAM 
ACCOMODATES  uri  SYSTEMS  WITH  STATE  OR  OUTPUT  FEEDBACK . 

MOORE  ALGORITHMS  ONLY  ACCOMODATE  SYSTEMS  WITH  REAL . DIST INCT , 
t  CONTROLLABLE  eigenvalues  and  state  feed,  kautsky  algorithm 
will  ACCOMODATE  SYSTEMS  WITH  COMPLEX  CONTROLLABLE  EIGENVALUES 
AND  WILL  FIND  ACHIEVABLE  EIGENVECTORS  ASSOCIATED  WITH  DESIRED 
C-LOOP  EIGENVALUES  FOR  BOTH  STATE  AND  OUTPUT  FEEDBACK. 
ADDITIONAL  OPTIONS  INCLUDE  USING  THE  ADS  OPTIMIZATION  ROUTINE 
FOR:  1.  MINIMIZING  THE  CONDITION  NO.  OF  THE  EIGENVECTOR 

MATRIX.  (PRESENTLY  NOT  WORKING) 

2.  MINIMIZING  THE  SINGULAR  VALUE  OF  THE  RETURN 

DIFFERENCE  MATRIX  WITH  THE  CONSTRAINTS  OF  A  DE¬ 
SIRED  EIGENSTRUCTURE. 

CDR  V.F.  GAVITO 
APRIL  mi 


DEFINITIONS 


A  •  PLANT  MATRIX  (N  X  HI 

AT  »  A  TRANSPOSE  (N  X  N) 

B  ■  CONTROL  MATRIX  (N  X  M) 

SDEL  ■  DAMAGED  CONTROL  MAT  (N  X  M) 

C  •  OUTPUT  MATRIX  CL  X  N) 

D  ■  FEED  FORWARD  MATRIX  (LXM) 

EIG  ■  O-LOCP  EIGENVALUES  (N  X  I)  COMPLEX  VECTOR 

EIGO  •  O-LOCP  EIGENVALUES  (N  X  1)  (REAL  PART) 

EIGOI  •  Q-LOOP  -  (N  X  |)  (IMAGINARY  PART) 

EIGO  •  DESIRED  C-LOOP  EIGENVALUES  (N  X  I )  COMPLEX  VECT 

EIGDD  •  DESIGN  C-LOOP  EIGENVALUES  "  " 

EIGREC  •  C-LOOP  EIGENVALUES  OF  RECONFIGURED  SYSTEM 
SLAMBDA  •  <LAMDHA" I- A  B> 

RANK!  «  R<SLAM8DA> 

RANKS  ■  R<C> 

VD  •  DESIRED  BASE  EIGENVECTORS  (N  X  N) 

V  -  DESIGNED  BASE  EIGENVECTORS  (N  X  N) 

VRECON  •  EIGENVECTORS  (NORMALIZED)  OF  RECONFIGURED  SYSTEM 
CV  ■  <C>*<V>  (L  X  N) 

E  •  "  C"V  FOR  EACH  EIGENVALUE  (L  X  N) 

HC1.2.S*4.S  •  WORK  COLUMN  VECTORS  (I  X  N) 

WMI .2.S.4.S.*  •  WORK  MATRICES  (N  X  N) 

7  *0 • 9 • 1 0 • 1 1 . !2«  " 

WKl’Z.S.A.S  ■  WORK  AREAS  FOR  EIGRF 
W  ■  FREQUENCY  (RAD/SEC) 

Wp  •  "FOR  DISSPLA  COMPATIBILITY 

K  »  1  (FOR  FORCING  EOUALITV  RELATION  FOR 
UNCONTROLLABLE  EIGENVALUES) 

F  •  FEEDBACK  GAIN  MATRIX  (M  X  L) 

FC  »  COMPLEX  FEEDBACK  GAIN  MATRIX  <M  X  L> 

FDEL  •  RECONFIGURED  FEEDBACK  GAINS  (M  X  N) 

ABF  •  C-LOOP  MATRIX  A  •  BF 

ICTR  •  CONTROLLABILITY  FLAG  FOR  O-LOOP  EIGENVALUES 
I FEED  •  FEEDBACK  FLAG 

1  •  FULL  STATE  FEEDBACK 
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.%  .S  _*»  .%  A*, 


y  -v 


C  2  ■  OUTPUT  PRO  BACK 

C  S  *  OUTPUT  PROSACK  PLUS  PRO  POP  MAP  0 

C  SP  ■  SINGULAR  VALUE  VECTOR  POP  PRO  SACK  GAINS 

C  SI  •  SINGULAR  VALUE  VECTOP  1 

C  S2  •  SINGULAR  VALUE  VECTOR  2 

C  SVM  •  MIN  SINGULAR  VALUE  OP  I  ♦  PO 

C  SVM1  ■  MIN  SINGULAR  VALUE  OP  I  ♦  GP 

C  SVMAX  -  MAX  "  "  "  I  ♦  PO 

C  SVMAX 1  a  ~  "  *  *  X  •  OP 

C  SVMP  -  MAX  -  •  -  FO  POR  DISSPLA  COMP AT 

C  SMREC  ■  MIN  S.V.  OP  RECONFIGURED  SYSTEM  (A  SINGLE  VALUE) 

C  WRED  •  FREQUENCY  OF  SMREC 

C  'JI.VI  «  ORTHOGONAL  MATRICES  COMPUTED  SY  CSVO  POR  CVD  OP 

Z  RETURN  DIFFERENCE  MATRIX 

C  UIF.VIF  *  ORTHOGONAL  MATRICES  COMPUTED  3Y  uSVQF  FOR  3VO  OF 

C  FEEDBACK  GAIN  MATRIX 

C  2.21.Z2.23.2A.25  ■  COMPLEX  WORK  AREAS 

C  UTSLAM  •  U«« TRANSPOSE  OF  SVD  OF  SLAMBDA 

C  VRT  *  U»«TRANSPOSE  OF  EIGENVECTOR  MATRIX 

C 

. . . . . . . . . . 

c 

C  DIMENSION  STATEMENTS 

C 

. . . . . 

e 

IMPLICIT  REAL-8(A-M.P-Z1 

REAL *8  A( 10* 10 ) *8( 10 » 10 ) *C( 10 • 10 ) * EIGO(20 ) »EIGV( 10 • 10 ) .EIG01 (20 ) • 
IP (10*10) .FSAVEt 10* 10 ) *8D£L( 10*10) »PDEL( 10* 10 ) .WM8C 10. 10 ) . 
2WC1(10).WC5C10).WCA(  10).WC5U0).F(10. 10).CV(  10*  10  ) .  WMR  ( 10. 10  ) . 
SUMITYt 10* 10) »M(2000) tSVMl (2000) *SVMAX1 (2000 )• MM 10(10*10)* 

AMM3 ( 10* 10) *MMS( 10* 10 )*UTSLAM( 10 •  10 ) » VPT( 10* 10 ) *MH1 1(10*10)* 

SWK2 (250 ) • ABPDELC 10 • 101*0(10*10) . WAREA2 (10. 10). HM 12(10. 10). 
4TEIOR(10).TEIGI(10).TEIGVR(10*10).TEIGVm0. 10  ) .  AT(  10 . 10  )  >MK3(20  )  * 
7MH6 ( 10 • 1 0 ) • WM7 (10.10) *  SVM (2000 ) • EIGV0( 10*10). S3 (10).  SVMAX ( 2000 ) 
DIMENSION  COM( 10 ).TITLE(20).WP(2000). SVMP (2000) 

COMPLEX" 1 *2 ( 10 *10)* 21 ( 10 )*Z2 (10>10). 23(10)* 24(10.10). 25 (10)* 
ietGuo).vao.ioi.eiGOuo).Eioooui)).EUo.io).vpno.io). 

2  UNITYC CIO.IOJ.ZN.VIFCIO. 10) >E1GREC( 10). VRECON( 10*10)* 

3  FC(IO.IO) 

REAL-8  WM1(10.10).MK1<20)*MKA(20).ABP(10.10).SLAMOA(20.20). 
1MM2(10.10).SIU0).WK(20).VR(10. 10 ) .S2 ( 10 ) . WC2 ( 1 0 ) .MKAREA(250 ) . 
2NM4{ 10*10) .WARCAl (250 ) * VSAVE( 10 • 10 ) . VRSC 10>10)»SP(10)* U1F (10*10) 
INTEGER  INK ( 1 0 ) . ICTR( 10)*N*M»L* I FEED 
C 

. . . . . . . . . 

c 

C  INITIALIZE  all  MATRICES 

c 

. . . . . . 

c 

DO  I  I  «  1*10 
Ink ( x )  ■  o 
ICTR(I)  •  0 
MCI ( I )  ■  O.DO 
MC2 ( I )  ■  O.DO 
MC3( I )  >  O.DO 
MC4d)  >  O.DO 
MCS(I)  •  0.00 
$1(1)  •  0.00 
S2tl )  •  O.DO 
S3( I )  •  O.DO 
TEIGPCI )  •  0.00 
TEIOICI)  ■  O.DO 
COM(I)  •  0.00 
DO  2  J  >  1*10 
A( I » J  )  •  0.00 
S(1*J)  •  0.00 
C(l.J)  •  0.00 
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OCX. J)  ■  0.00 
PCI  "II  ■  o.oo 
CVCI.J)  «  0.00 
3LAM0ACX.J)  .  o.oo 
UTSLAM(I.J)  •  0.00 
VKTd.Jl  a  0.00 

exovoa.jj  •  o.do 
VO(I.J)  ■  (0.00.0.00) 
VU*J)  *  to. 00. 0.00) 
VR(X.J)  a  o.oo 
VflSC  X « J )  a  CO. 00. 0.00) 
A8f*(X»J)  *  O.OO 
AT(X.J)  a  0.00 
9 (I..*)  *  0.00 

UN  I  TV  r  I  .  J  )  *  o.og 
UNITVC  C I . w )  a  (0.00.0.00) 
UIF(I.J)  a  0.00 
UMl(X.J)  a  0.00 

NMscr.ji  •  o.oo 

WHS ( I . J )  •  0.00 
MH4(X*J)  •  0.00 
WMS(I.J)  a  0.00 
WMA(I.J)  •  0.00 
WM7U.J)  a  0.00 
WH8CI.J)  a  0.00 

WM*U,J)  a  0.00 

WN10CX* J)  a  0 . 00 

WM11CX.J)  a  0.00 
WHU(I.J)  a  0.00 

CONTINUE 

CONTINUE 

00  5  :  a  1 ,20 
DO  9  J  a  1.20 
SIAMOA(Z.J)  .  o.oo 
CONTINUE 

DO  4  I  a  1.20 
UK(I)  •  0.00 
WKICI)  a  O.DO 

WK3 ( I )  a  0.00 
UK4C1)  ■  0.30 
EIOO(I)  a  o.oo 

€1001(11  a  0.00 

CONTINUE 

DO  7  I  a  1.250 
WK2( I  )  a  0.00 
WKAAEA(I)  a  0.00 
WAftEAlCU  a  0.00 

continue 

DO  8  X  a  l  .  10 
CHI)  •  (0.00.0.00) 

23(1)  •  (O.DO. 0.00) 

?5(I)  a  (0.00.0.00) 

EIO(!)  a  (0.00. O.DO) 

€100(1)  a  (O.DO. O.DO) 
EIQDD(I)  a  (0.00.0.00) 

00  9  J  a  1,10 
E(I.J)  a  (0.00. 0.00) 

Z(X.J)  a  (0.00*0.00) 

Z2( I . J  )  ■  (0.00.0.00) 
?4(I,J)  a  (0.00.0.00) 
CONTINUE 
CONTINUE 

DO  11  I  a  1,2000 

SVMAXU)  •  0.00 
SVM(t)  a  0.00 

swim  *o.oo 

SVMAXl(I)  a  0.00 
MCI)  a  0.00 
WKI)  a  0.0 
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READ  ZN  DATA 


s 


1 


11 

C 

C»" 

c 

c 

c 

o» 

c 

c 

12 

16 


SO 


Cl 

SI 

IS 

c 


42 

41 

c 


44 

45 

c 


4« 

45 

C»" 

C 

c 

c 

C»» 


SVMPU)  •  0.0 
CONTINUE 


REAO  IN  OUTPUT  TITLE 
OOTO  511 
REAOd.UJTITLE 
FORMAT (20A4) 

READ  IN  NO.  OF  STATES.  .‘<0.  OF  INPUTS.  NO.  OF  OUTPUTS.  TYPE  FEED8A 
READ! 1.10)  N.M.L. IFEED 
FORMAT C 4 121 

READ  IN  A.8.C.0 
00  20  I  •  l.N 
READ! 1*151  (A(I. JJ.J.l.N) 

CONTINUE 

DO  30  I  ■  l.N 

READ  (1.15)  (S(I.j).Jal.H) 

CONTINUE 

OO  40  !  ■  l.L 
READ(l.lS)  (C(I.J).jal.Nl 
CONTINUE 

IF( I FEED. NE- 3 )GOTO  22 
OO  51  I  •  l.L 
READ( 1  *  IS  1 (0( t  *J ).J«l .Ml 
F0RMATC4F12 .5  1 

READ  IN  DESIRED  C-LOOP  EIGENVALUES 
DO  41  I  >  l.N 

READ (1. 42)6100(11 
FORMAT (2F 12. 5 ) 

CONTINUE 

REAO  tN  DESIRED  C  *  V 
00  43  I  ■  l.N 
00  41  j  .  l.L 
R£AD( 1 .44 )£(J. 1 l 
FORMAT (2F12 .5 ) 

CONTINUE 

REAO  IN  DESIRED  BASE  EIGENVECTORS 
00  45  I  «  l.N 
DO  45  J  •  l.N 
REAO( 1 .44 )V0( J* I ) 

FOR MAT (2P 12. 5  ) 

CONTINUE 


01 SPLAY  INPUT  FOR  CHECKING 


52 

50 


(0 

70 


•  0 


40 

100 


110 


CALL  FRTCMS  CCLRSCRN  ’) 
MRITE(4.140)T1TLE 
MR ITEC4 .52 ) I FEED 

FORMAT (/5X. '  »■■»  FEEDBACK  FLAG  ■  *.I2 
MRITE(4.50) 

FORMAT ( / 1  OX »  *  A  MATRIX . . 

00  70  I  «  l.N 
MRITEC4.40)  (A(t. JJ.J.l.N) 
FORMAT! 1X<4(E12.S.2X)  ) 

CONTINUE 

WRITE(4.80) 

FORMAT! /10X.  '  B  MATRIX  ■•••',/) 

00  100  I  •  l.N 
WRITE! 4 . fO )  (B(I.J).J.l .M) 
FORMAT !1X.4(E12.5»2X)) 

CONTINUE 

WRITE (4> 110) 

FORMAT!/ 10X. *•...  C  MATRIX  ■■••«•/) 
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DO  ISO  I  •  l.L 
MttTCU.ttO)  (C(I.J).J-l.N) 

120  F0RMAT(1X.<(E12. 5.2X11 

iso  continue 

muteu.ui) 

111  FORMAT(/l OX. *■■■■  0  HATH IX  ■»■■*./) 

00  112  r  ■  l.L 

112  NfttTEU.  120X0(1.  J>.J*1.M) 

writeu.isoi 

150  FORMAT (  /  / 1 0  X  . *  DESIRED  BASE  EIGENVECTORS  FOR  USE  IN  •«•■*./ 

nox.  *•••■  kautsky  algorithm  only  •»«■•// 

2  2X. 'EIGENVECTOR* -2X. 'REAL  P  ART '  •  *X.  *  IMAQ  FART*./) 

DO  151  t  •  l.M 
WRITEC*. 153)1 
153  FORMAT ( 7X .  12  ) 

00  IS l  J  *  l.M 
wRITg($.152)V0(J.!J 
152  F0RMAT(lJx.Ei2.5.3X.£l2.5 ) 

151  continue 

1*0  FORMAT <//. 2 QAA 1 

tfftITECt.  UQ) 

1*0  FORMAT t/10X.‘ *»»■  DESIRED  C-LOOP  EIGENVALUES  FOR  USE  IN  •■■■*./ 

UOX.  •#*•»  KAUTSKY  ALGORITHM  ONLV  ■■■■*. //2X 

2. 'EIGENVALUE1 .2X. ’REAL  FART* .*X. * IMAQ  PART*./) 

00  ISS  t  ■  l.M 
WRITE C*.I54)I*EIG0(1) 

15*  FORMAT (7X.I2>*X»£12.S.3X.E12.S) 

155  CONTINUE 

. . . . . . . . . 

c 

C  CONSTANTS 

C 

. . . . . . . . . . 

c 

C  IDENTITY  MATRIX 

00  200  I  ■  1.10 

UIF(I.I)  •  1.00 

UMITVU.  t  )•!  .30 
UNXTYCd.I)  •  (1-00.0. DO) 

200  CONTINUE 


C  GOTO  531 

. . . . . . Mill* . . 

c 

C  OECIDE  ON  RECONFIGURATION  ANALYSIS  OR  EIGCNSTRuCTuRE  DESIGN 

C 

. . - . . . Ml . . . 

C  WRITCC*.202) 

C02  FORMAT ( /sx. • ENTER  "l"  FOR  RECONFIGURATION  STUDIES  ■■■«*. /5x. 

C  1  *«■■•  ENTER  ,,2**  FOR  EIOENSTRUCTURE  ASSIGNMENT  •»'./> 

C  READ(«.S1S JIRECON 

C  IF ( IRECQN . EQ . 2 1GOTO  1*5 

C  ISOLN  ■  s 

C  CALL  RECON(A.B.C.F.L.M.N.80EL.FDEL.EIGREC.VRECON.SMREC.WREC. 

C  1  ABF DEL ) 

C  OOTO  SO* 

. . . . . . . 

c 

C  CALCULATE  o-logp  eigenvalues 

c 

. . . . . . . 

c  save  a  since  EIGRF  0ESTROYS  a 


1*5  DO  201  I  ■  1 .N 

00  201  J  »  l.N 
WM1U.J)  •  AU.J) 

201  CONTINUE 

CALL  EIORFtWMl .M. 10.0.21 <2. 10.HK1.IER) 
DO  205  I  •  l.M 

€10(1)  •  run 

EIOC(I)  ■  DR CAL (21(1)) 
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I 


> 

> 

% 


CIOOX (I )  •  DIMAOIZl II)) 

SOt  CONTINUE 

MR1TEC4.2I0) 

210  FORMAT (//l OX. OPEN  LOOP  EIGENVALUES  //SX. • ««RCAL»«* . 1SX 

». ••■IMAO""*/) 

DO  S23  I  •  l.N 
woiTcu.220)Eiooa).eioo!tn 
220  FORMAT  (1X.C12.S.10X.E12.S) 

225  CONTINUE 

C  RC-INITIALIZC  WHI  WORK  MATRIX 

DO  220  I  •  UN 
00  224  J  •  l.N 
4M1 ( I > J )  *  0.0 
220  CONTINUE 


c 

C  CHECK  O-LOOP  EIGENVALUES  FOR  CONTROLLABILITY 

C 

. . . . . . 

00  2(0  I  ■  l.N 
X  -  DAEAL (EIG( I  )  ) 
iF(Ciooi<n.ca.o.DO)ooTo  227 
CALL  CCMTRLCA.B.UNITVC.N.M. ICTR.CI0. I  1 
GOTO  200 
227  00  221  J  ■  l.N 

WMKJ.Jl  ■  X-UNtTYCJ.J) 

221  CONTINUE 

DO  230  J  ■  l.N 

00  230  K  -  l.N 

MM2  ( J  .  <  )  ■  WMUJ.K1  -  A(J.K1 

UTSLAM(J.K)  ■  UNITY(J.K) 

250  CONTINUE 

C  CALCULATE  SLAM  DMA ( I  1 

00  2<Q  J  •  l.N 
00  2«0  K  ■  l.N 
SLAMOA(J.K)  •  WMC(J.K) 

200  CONTINUE 

00  250  J  ■  l.N 
00  250  K  •  UN 
3LAMD*(J.K*N)  •  8CJ.K) 

230  CONTINUE 

C  CALCULATE  RANK  OF  SLAMOHA 

II  ■  K*N 

CALL  LSVDF ( $L AMDA . 2 0 • N • 1 1 • UTSLAM .10.N.S1. WK « IER ) 

IF( ICR.EQ.33  JOOTO  251 
ICTR(I)  ■  1 
GOTO  240 

251  ICTRH)  >  0 
2*0  CONTINUE 

C  OISFLAY  CONTROLLABILITY  FLAGS  FOR  O-LOOF  EIGENVALUES 

MR!TC(t.300 ) 

300  P0RMAT(//5X. ’O-LOOP  EIGENVALUE  CONTROLLABILITY  FLAG  (1«V)M 

00  310  I  •  l.N 

h*ite(4.sco)  cfGoa i.ezGoim* !cr*ri j 

520  FORMAT! 1X.E10.S.1X.E10.5. 'J' .14X.I2J 
510  CONTINUE 

C  DECISION  FOR  REINSERTING  EIGENSTRUCTURE 

MRITEC4.312) 

512  FORMATI/IOX. '  »*■»  DESIRED  EIGENSTRUCTURE  HAS  BEEN  REAO  FROM  mm*. 

1  /I0X.  '  ■*»*  OATA  FILE.  ENTER  "l**  TO  CHG.  NOTE i  CANNOT  * 

2  / 1  OK .  *  * ■**•  CMC  IF  KAUTSKY  ALGOR.  WILL  BE  USED.  ENTER  *• 

5  /10X. ' **»•  mZm  IF  YOU  DESIRE  TO  USE  FILE  DATA  FOR  * 

4  /10X.’»"»«  MOORE  ALGOR.  OR  IP  YOU  ARE  GOING  TO  USE  « 

5  /10X. ' «■"»  KAUTSKY  ALGORTIHM.  ■ 

4  /) 

ftCAD{*«525  HCIGEN 
SIS  FORMAT (Ill 

CALL  FRTCMS ( *  CLRSCRN  *1 
|F( ICIGCN.E0.2 100T0  552 


X 

£ 
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4 


'■Ui -'*'-** 


l^UT  DCS  I  RED  C-LOOR  EIGENVALUES 


miTEC4.S2S) 

FORMATC/SX. *■•■•  ENTER  DESIRED  C-LOOP  EIGENVALUES  ■»•«* 

1  ••■nil  REMEMBER  i  ONE  CANNOT  SHIRT  THE 

2  UNCONTROLLABLE  EIGENVALUE ( S  ) . 

3  ONE  MUST  SHIRT  IN  SAME  ORDER  AS 


WAS  OISPLAVED  "0  maintain  PROPER  /5X. 


CONTRQLLA8ILLITY  IDENTIFICATION 

DO  ISO  I  *  l»N 
wRITgl*. J2« JI 


ff0RMAT C  IX.  1  DESIRED  C-LOOP  EIGENVALUE 


•REAL  PART  ..ENTER  THEN  IMAG  PART  . . ENTER ',/ ) 


READ! * .3243  X 


REAOC.224)  Y 


FORMAT (F12 .5  ) 

EIGO(I)  •  DCMPLXCX.Y) 


INPUT  DESIRED  VALUE  OF  C»V 


uRITE(4.3A0  1 

FORMAT! /  I0X.  •  INPUT  DESIRED  C  X  EIGENVECTOR  •• 

I  *  «•*««■  FOR  EACH  EIGENVALUE  IN  COLUMN 


*  N  M  M  N  FORMAT. 


30  350  J  «  I.N 


DO  350  I  »  l.L 
WRITEC4. 351)1. J 

FORMAT (lX.'C('*ll.'*'.tl.')  ■  *  .  /5X» 

1  ’REAL  PART  ..ENTER  then  IMAG  PART  ..ENTER* 

REA0(*.345)  X 
READ! «.345)  Y 
FORMAT  IF  V 2. 5) 

E(I.J)  *  DCMPLXCX.Y) 

CONTINUE 


DISPLAY  DESIRED  CIGENSTRUCTURE 


CALL  FRTCMS ( *  CLRSCRN 


UAITEC4.340) 


FORMAT! //10X. ’ DESIRED  EIGENSTRUCTURE  for  USE  IN  MOORE  ■ 


ALGORITHMS.  IGNORE  IF  KAUTSKY  ALGORITHM 


2  lOX.  *•»•••  WILL  BE  SELECTED. 

3  .4X. ‘EIGENVALUES’ .12X. ’C  •»  VCD*./) 

DO  380  l  ■  i.N 

MRITEC4.370)  EIOOU).CE(K.n.KM.L) 
FORMAT(1X.2(E10.3. IX). 1X.8( /24X.E10 . 3 . 1X.E1 0 . 3 ) ) 


CALCULATE  EIGENVECTOR  ASSOCIATED  W/EACH  EIGENVALUE 


DECIOE  ON  MATRIX  OR  ALGEBRAIC  SOLUTION  OR  KAUTSKY  ALOGORI THM 


UR  ITS (4 .385  ) 

F0RMATC///5X. ‘ ENTER  "l"  FOR  MOORE-MATRIX  SOLN.  »•«•*. /5X 

I.  . ENTER  **2**  FOR  MOORE-ALGEBRA IC  SOLN .****■. /5X 

2  •mmmm  ENTER  H3**  FOR  KAUTSKY  ALGORITHM.  /5X 


*■■■•  NOTE i  MOORE- ALGEBRAIC  SOLUTION  IS  ■■■»*, /5X 
•*»mn  REOO  IF  L>M  AND  YOU  DESIRE  MOORE  AL*«"«*./5X 
. GORITHM.  KAUTSKY  ALGORITHM  REQD  ■  /5X 


4  .  FOR  COMPLEX  EIGENVALUE  ANALYSIS  AND**** * . /5X. 

7  .  interactive  eioenstructure  design  ■■■■•, /sx. 

•  'mm  ANO  for  output  feedback  problems.  ■■•«♦./) 

R€AO(«.  JB4JISOLN 
SB*  FORMAT  (II) 

CALL  FRTCMSI ' CLRSCRN  '  ) 

IF(  ISOLN.EQ.  nQOTO  SB 7 
IF( ISOLN.EQ.2  JGOTO  381 

CALL  <VECT(a.8.C.0«EIC0.F.N.N,L»VD*V.IFEE0J 
WRITE (4. 382) 

382  FORMAT  (/5X» ' *•»*  KAUTSKY  ALGOR  I TM  COMPLETED  /J 

GOTO  504 

181  CALL  ALGGLNtA.S.C.EIGD.E.UNITY.N.M.L. V.WM3 ) 

4RITEC4. 338  ) 

'88  FORMAT (/5X.'**«*  ALGE3RAIC  SOLUTION  COMPLETED  *»*•*./) 

GOTO  481 
387  00  400  I  •  l.N 

C  REINIT  SLAMDHA  MATRIX 

00  540  II*  I. 10 
OO  390  JJ*  1,13 
SL AMO A (II*  J J ) ■  0.00 
340  CONTINUE 
C  REINITIALISE  WC2 

oo  4oi  ii  *  i.io 

WC2CII)  ■  0.00 
401  CONTINUE 

C  RECOMPUTE  SLAMOHA  MATRIX  FOR  EACH  EIGENVALUE 

00  345  J  •  l.N 
DO  345  <  •  l.N 
X  •  OREALteiGDd  n 
3LAMDACJ.K)*  X*UNITY(J.K)  -  A(J,K> 

345  CONTINUE 

C  AUGMENT  SLAM DA  TO  INCLUDE  8 

DO  544  J  *  l.N 
OO  346  K  •  I.M 
SL AMO A ( J • K  *  N )  •  B(J.K) 

544  CONTINUE 

C  AUGMENT  SLAMDA  TO  INCLUOE  C 

OO  410  J  ■  1,L 
DO  410  K  •  l.N 
SLAMDA (J*N.K1  •  C(J.K) 

410  CONTINUE 


C  CALCULATE  <0  E(!J>  TRANSPOSE 

DO  420  J  •  l.L 
X  -  DRCALCEIJ. I ) 1 
WCC  f J*N J  a  X 
420  CONTINUE 

C  CALCULATE  <  V(I)  Alt  I  J  >  TRANSPOSE 

II  ■  N  *  L 

C  DEBUG  WRITE  STATEMENT 

C  WRITE(4.421) 

C21  FORMAT ( 5X ■ ’ ** ■ *  SLAMDA  AUGMENTED  MATR IX***« * . / 1 
C  OO  423  K1  *  1.11 

C  WR I TE ( 4 » 422 ) ( SLAMDA ( K l . K2  1 . K2 ■ l . 1 1 ) 


C22  FORMAT(lx.4(E10. 2.2X1) 

CCS  CONTINUE 

. . . . . . . 

c 

C  JUMP  TO  680  FOR  UNCONTROLLABLE  EIGENVALUES 

C  (PRESENTLY  PROGRAM  WILL  NOT  HANDLE  THIS  CASE) 

C 

. . . . . . . 

!F( ICTR ( I ) . EQ . 0  JGOTO  480 

424  CALL  LCQT1FCSLAM0A. 1 . II . 10.MC2. 1 .MKAREA. IER) 

470  DO  480  J  •  l.N 

V(J.I)  »  DCMPLX(MC2(J ) . 0.00 ) 

480  CONTINUE 

DO  485  J  *  l.M 
WM3CJ.I)  •  WC2 ( J*N ) 


144 


4H  CONTINUE 
400  CONTINUE 

. . . . . . . . . 

c 

C  CHECK  FOR  INDEPENDENCE  OP  EIGENVECTORS  COMPUTED  VIA 

C  MOORE  ALGORITHMS 

c 

. . . . . 

C  CALCULATE  RANK  OP  V 

C  LSVOP  REPLACES  *V  WITH  THE  ORTHOGONAL  ‘V*  MATRIX  A  LA  SINGULAR 
C  VALUE  DECOMPOSITION.  THEREFORE  'SAVE*  REAL  PART. 
a«i  oo  <a:  i  •  i.n 

oo  <a:  j  *  i.n 

VRd.J)  a  CR6ALCVCI.J)) 

VRSCI.J)  «  VRII.J) 

VRT(I.J)  •  UNITV(Z.J) 

482  continue 

CALL  LSVDF(VR.10.N,N.VRT.10,M.S2.WK1. IER 1 
IP ( IER . E0.S3 JGOTO  690 
GOTO  501 

490  WRITEC4.50Q] 

500  FORMAT! //^X. *»»■ ■EIGENVECTORS  ARE  NOT  INDEPENDENT.  MUST  ■■■■•, /5X. 

I  CHANGE  C  X  EIGENVECTOR  (I)  OR  CHO  IN-  *■*»',/) 

tP( ISOLN.EQ. 3 JGOTO  680 
GOTO  335 

. . . . . 

c 

C  CALCULATE  FEEDBACK  GAINS 

C 

. . . . . . Ml . . . I . Mill 

501  CALL  LlNVCP C VRS.N. 10 . WH4 . 1 .WARE A l . IER ) 

HRITEC4.507) 

507  PORMAT ( / 5X . * ■ ■ ■ «  EIGENVECTOR  MAT  HAS  BEEN  INVERTED.  P  0AINS  NEXT  ■ 

!«•«•,/) 

CALL  VMULPPCWMS.WMA.M.N.N.IO.IO.P.IO. IER) 

WRITE! 4 » 508  J 

508  PORMAT (/5X. ■ ■■•■  P  GAINS  COMPUTED  ••■■*,/) 

C  ASS I On  PROPER  SENSE  TO  FEEDBACK  Gains 

DO  504  I  •  l.M 
00  504  J  •  I.N 
PCI.JI  •  -  PU.J1 
504  CONTINUE 

. . . ■••MU . •■«■*••»«■ . MIIIM 

c 

C  CALCULATE  A  ♦  BP  OR  A  •  BPC  OR  A  ♦  B»INVCI  -  FD)»FC 
C 

. . . . . . I 

509  IPCIPEED.EO. 1JG0T0  513 

IPUPEE0.E0.:  JQOTO  514 

CALL  VMULPP ( P • C » M . L * N i 10. 10 #WM7 . 10 . IER ) 

CALL  VMULPP (P. D. M. L.M. 10. 10. WM8. 10# IER) 

DO  514  I  ■  l.M 
DO  514  J  •  l.M 

514  WM9II.J)  ■  UNITV(I.J)  -  WM8CI.J) 

CALL  LINV2PCWM9  #M. 10 .WM10 . 0 • WAREA2 . IER ) 

IFIIER.NE.129 1GOTO  518 
WRITE (4. 519) 

519  FORMAT C/SX#  * ■■■■  I  -  PD  IS  SINGULAR.  RESULTS  ARE  INACCURATE  ■■■■* 

1  /) 

518  CALL  VMULPP(MM10.MM7.M.M.N#  10.10. WHU. 10. 1£R) 

CALL  VMULPP ( B ♦ WM1 1 <  N.M.N. 10. 10 • WM1 2 • 1 0 . IER ) 

DO  517  I  ■  1#N 
DO  517  J  ■  1#H 

517  ABPCl.J)  >  A(I,J)  ♦  WM12 ( X  # J ) 

GOTO  512 

514  CALL  VMULFF<B.F.N.M.L.10.10.WMS.10.IER) 

CALL  VMULPPCWM5.C.N.L.N. 10. 10.WM4. 10. IER) 

00  515  I  •  I.N 
DO  SIS  J  ■  I.N 
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SIS  AfP(I.J)  ■  ACX.J)  *  HHt(t'J) 

00 TO  312 

51$  CALL  VMULFFCB.F.N.M.N.1Q.10.HMS.10.IER) 

DO  510  1  ■  l.N 
DO  510  J  ■  1  *  N 
ABFU.J)  •  A(I.J)  ♦  WMS(X.J) 

510  CONTINUE 

. . . . Ml 

c 

C  CHECK  FOR  CONSERVATION  OF  C»V  DURING  0ES10N  ITERATIONS 

C 

. . . . . . . 

IF( ISOLN.cQ. 2 JGOTO  512 

511  “ALL  VMULFFCC.VRS.L.N.N.iO.lO.CV.iC. iER ) 

5 1 2  WRITE!#. 520) 


520  FORMAT (/ ♦ ' »*••  IF  SINGULAR  VALUE  ANALYSIS  DESIRED*  ENTER  “l"  «»»• 
1./,  *»«»•  OTHERWISE  ENTER  **2" 

2) 


RCAO(».5JO)ISVA 
530  FORMAT (11) 

CALL  FRTCMS! 'CLRSCRN  *) 

IF ( I SVA . EQ . 2  JGOTO  560 
. . ■■•■•HU . . . . . 

c 

c  SINGULAR  VALUE  ANALYSIS  OF  DESIGN 

C 


C» 

i* 

C31 

F(l.l) 

■ 

-16.18705 

C 

F( 1 .2 ) 

• 

3.55** 

c 

F(l.J) 

■ 

77. *62* 

c 

7(1.0 

a 

-*1.00* 

c 

F(2. 1  ) 

a 

-0.0532* 

c 

F(2,2) 

a 

-2. *16*5 

c 

F(2 . 3 ) 

a 

.20053 

c 

■(2-6) 

a 

-15.58*03 

531 

CALL  svaia.b.c.d.f.unity.n.m.l.w.svm.svmax.svmi .svmaxi.ifeedj 

c»«» 

■  a 

C 

C  DISFLAV  RESULTS 

C 

. . . . . . . . . . . 

560  call  FRTCMS! 'CLRSCRN  •) 

WRITE!*. *00) 

*00  FORMAT(///I5X.  . . .  OESIGN  RESULTS . . 

I F ( I SOLN . EO . 3 ) GOTO  *33 
*32  WRITE!*. *01) 

*01  FORMAT C//5X. * W  MATRIX  COMPUTED  OURINQ  MOORE  SOLN  •»»•*/) 
DO  *02  I  ■  1 .M 
wRITE(*.*031(WM3! I . J).J«1 .N) 

*03  FORMAT! 1X.*!E12.5. IX) ) 

*02  CONTINUE 
*33  WRITE!*. *31) 

*31  F0RMAT(//5X. * •••■  C-LOOP  MATRIX.  A  ♦  BF  ■■■■'./) 

DO  *60  I  ■  l.N 

WRITE (*>*03) (ABF! I • J) . Jal .N) 

*60  CONTINUE 

WRITE!*. *50) 

*50  FORMAT (//SX. * •«»»  FEEDBACK  MATRIX  ■•«■•.//) 

DO  *70  I  ■  l.M 

WRITE !*.**0)(F(I.J).J#1 • L ) 

**0  FORMAT! IX. 5! 2X. El  2.5 ) ) 

*70  CONTINUE 

C  SAVE  *  F  *  SINCE  LSVOF  DESTROYS  F 

DO  *51  1  •  l.M 
00  *31  J  •  l.L 
*51  FSAVE(I.J)  •  F(l,j) 

CALL  LSVDP ! FSAVE .10.M.L.UIF.10.0.SF.MK.IER) 

X  •  SF(l) 

WRITE!*.  **5)X 
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tx**' W'J JJV  FU  *11  ■*  M,-rtfi.tfkTI*U  ^ir* w ▼vw.n -*_”  ^r\wv\ <-w  rv «-w m» 


S 
> . 
/ 
v 

KJ 


I 

w*. 

t: 

k 


MS 

c 

4« 

4*4 

C 

472 

471 

410 


420 

430 


♦  12 

♦  00 


•20 
♦  10 
•15 

♦  30 


♦50 

♦40 

C 


480 

♦  70 

♦  71 

♦  72 

♦  7  J 


F08KATC/5X.  *y»£CT*Al.  NO*M  •  *.612.5) 

CALL  ElW*<AB*.N.l0.1.25.Z4.10.MM.ieA) 

** *>  CONDITION  MUNtC*  Ok  DESIGN  CtOENVCCTO*  MATRIX 
CALL  CONO(Z«.N.X) 

HRITC(4*442 ) 

RORNAT (/SX •*■•■»  OCSION  eiOCNVeCTOR  MATRIX  ■•»*♦,/) 

00  MS  I  «  l.N 
UftXTKH.«20)CZ4(X'J).J«I.N) 

CONTI woe 

NRIT6U.t?4)x 

kORMAT;/5x. *2  NORM  CONDITION  NUMBER  ■  • .61 2. 5) 

NORMALIZE  EIGENVECTOR  MATRIX 
00  471  J  •  l.N 

<  »  0.00 

30  *72  1  .  .  . n 

X  ■  *  -  0R£AL(Z4C  I  .j  )  >»*»2  •  0tMA0(Z4f  I.J  )  )*«2 
30  »7l  J  ■  UN 
24CI.J)  •  Z4( I.j)/0SORT(X) 

URITE (4.410) 

kORMAT(/5x. 1 "«**  NORMALIZED  DESIGN  EIGENVECTOR  MATRIX  -•*■•./) 

00  .20  I  .  l.N 
w»iTei*.«o)(z«(i.ji.j.i,N) 

P0RMAT(8( 1X.E*.;  1 1 
continue 

Call  conoiT* .n.xni 

WRITE!*.. *4 )XN 
WR1TEI*.**0) 

PORMATC/5X. ' ....  DESIGN  C-LOOP  EIGENVALUES  "••«■. /l!X. 

1  -HEAL  .ART ‘  . *X .  ' INAQ  PART'./) 

oo  i  .  :  .n 
WRITE!*.  ISDI.ZSCD 
CONTINUE 

IPdSOLN.Ea.IiOOTO  *  15 
WRITE! * . *00 ) 

PORmaT(//5X. ' £.< c>xv>  matrix  APTER  DESIGN  COMPLETE 

:5)<'  '*»••  WOTE:  »GN  CHECK  «OR  MOORE  ALGORITHM 

00  "10  I  •  I.L 
NRITEtt.»JO)ICVtI..).J.l.N) 
pornaTi ix,.;5x,ei:.S) ) 

CONTINUE 

IPdSVA.EO.C  JGOTO  .80 
WRITE!*. *J0| 

PORMATI// I5X, ' ....  SINGULAR  VALUE  ANALYSIS  OP  DESIGN  ....... //IX. 

1  PREO  I  •  PG  I 

C.//.2X.  '  RaO/SEC  nak  310  MIN  SIG  max  SIO 

J  SIO' ./) 

do  «‘0  :  •  i .:;o- lo 

NR  ITEt  *  .  *50  I  «d  1  •  SVMAX  (  I  ).SVN<  I  I.SVMAX1  !  I  1  .  SVW  Id) 

*CRMAT( ;x.r7.;. 1X.4IE1C.S. IX) ) 

CONTINUE 

generate  data  pile  POR  S.V.  plotting 

CALL  SVPLOTISVM.SVPI .  W| 

WRITE!*. 1000 ) 

. .  IP  vou  ARE  AT  A  T£K*18  CONSOLE  AND  DESIRE  •••.'. 

I  /Sx. ' ....  A  PLOT  OP  MINIMUM  S.V.  OP  THE  RETURN  01FP  .. 

0  /5X.  ' ....  MATRIX  JUST  COMPUTED;  TYPE  THE  FOLLOW  I NQ  .. 

J  /5X.  '  ....  AFTER  5 1  OEMS  COMPLETION . 

*  . . PLOT"  FOLLOWED  IV  "DISSPLA  SVPLOT  FORTRAN". 

5  /) 

IF ( I RECOM . EQ . C ) GOTO  **0 

WRITE!*. .JO) 

formati /sx.  • ....  damaged  8  matrix  «••••.,•) 

OO  *71  I  .  l.N 

WRlTEl».*0)I8CELd.J).J.|.M) 

WRITE(t,*72) 

FORMAT(/SX. ' RECONFIGURED  FEEDBACK  OAJNS  .«..•,/) 

OO  *7J  I  .  I ,H 
WRITE!*.*OI(FOELd.J).J.l  .L) 

WRITE! 4. *75 ) 
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OP' 

MIN 


a*.  .  'I  ■  .  <  .  •  .  ,;.L  .  •  . 


r..  i  . 


A  •' A--  A-'-  N.-.V  •' 


i  |S»'A*A'|  iUfr*  mi  Bb'i  j 


FORMAT (/5X.'«»»«  RECONFIGURED  NORMALIZED  EIGENVECTORS  »»»»*. /I 
MRITC(4.42Q)((VRECON(t.J).J«l .N).I«1.N) 

WRITE (4*474) 

FORMAT  ( /5X . *  *■*•  RECONFIGURED  EIGENVALUES  ■«••*./) 

WRITE (4*IS4)( I .EIGREC(I)* 1*1. N) 

WRITE(4.*77 )SMR6C.WREC 

FORMATC/5X.  ’  *»<*«•  MIN  S.V  *  *.£12. 5.*  ,/SX. •■»»»  at  FREO  » 

1E12.SK  •***'./) 

WRITEC6.479  ) 

F OR M A T  ( /  5  X «  *  '•Kim  RECONFIGURED  C-LCOP  MATRIX  »«««•'  . ✓  ) 

DO  *79  I  •  l.M 

WR  ITS  f  6  ■  e»0I )  ( ABFDEL  1 1 .  J  )  .  J«  l  .  N  ) 

CALL  RESULT  C  A .  £ .  C  >  F  • FDEL • 3DEL *  Z4 . C5 *L*M.n) 

END 


SUBROUTINE  SVA  PERFORMS  SINGULAR  VAULE  ANALYSIS  OF 

’HE  RETURN  DIFFERENCE  MATRIX  OF  THE  DESIGNED  SYSTEM. 

IMSL  ROUTINES  REQO:  LEQT1C 

El  GENS  SUBROUTINES  REQD:  CMATML-CSVO 

CDR  V.F.  GAVI TO  VER  1.0  JANUARY.  1486 


SUBROUTINE  SVA(A.8.C .D.P. UNITY. Nl .Ml .Ll . W • SVM . SVMAX . 3VM 1 .5VMAX1 . 
1  IFEED) 

IMPLICIT  REAL*8(A-H.P-2) 

REAL "8  A( 10* 10) •  3  ( 10* I  0  )  •  C  ( 10* 10 ).UNITY( 10. 10 ) . W(2000  ) . SVM( 2000  ) 

1  SidOl.Xl.Yl.rdO.  1 0  ).  SVMAX  ( 2000  ).X.S2dO).SVMl  (2  000). 

2  SVMAXU2000  )  .WAdO).DdO.  10) 

coMFL£x»UACdO.  ioj.sccio*  loi.ccdo.  ioj.wmcccio*  ioj.wmcjcio.  io). 

1  GC  (10*10). UidO.lOl.YIdO. 10)*  RDM(  1 Q ,  1 0  )  *  WMC4  (10 . 1 0  )  * 

2  MMC5dO.lO).FCdO.lO).RDMidO.lO).un(lO.lOJ.VlldOd0 

S.  DCdO.lO) 

COMPLEX*  u  WMCldO.lO).UNlTYC(lO.lO) 

INTEGER  hi. Ml. Ll. IFEED 

DO  10  I  •  1*10 

WAt I )  ■  0.00 

SKI)  -  0.00 

52 (I )  •  0 . DO 

DO  10  J  •  1*10 

ACd.j)  •  (a. do. o.oo) 

RDM(I.J)  >  (0. DO *0*30) 

RDMKI.J)  ■  (0.00*0.00) 

CCd.J)  ■  ( Q  .  DO  >  0  .  DO  ) 

UKI.Jt  *  CO. DO. 0.00) 

VI  Cl  .  J)  ■  (0.00.0.00  ) 

UIKi.J)  •  CO.  DO.  0.00) 

VliC.J)  ■  CO.  00*0.  DO) 

UNITYCCI.J)  ■  CO. DO. 0. DO) 

WMCld.J)  •  C0.D0.0.D0) 

WMC2CI.J)  *  CO. 00. 0,00  ) 

WMC3CI.J)  «  (0.00*0.00) 

WMCAd.J)  *  CO.  DO.  0.00) 

WMC5CI.J)  »  CO. 00. 0.00) 

BCCI.J)  •  ( 0  .  CO . 0 . DO ) 

DCd.J)  •  (0.00*0.00  ) 

OC(I.J)  ■  (0.00.0. DO) 

FCd.J)  ■  (0.00.0.00  ) 

CONTINUE 

00  45  I  »  K2000 

SVM( I )  ■  0.00 
SVMAX Cl )  •  0.00 
SVMKI  )  ■  0.00 
SVMAX Cl  )  •  0 . DO 
CONTINUE 

FILL  UP  COMPLEX  MATRICS  WITH  PROPER  DATA 
00  100  I  •  1.N1 

unmet:.!)  ■  d.oo.o.oo) 

WMCS  (I .  I  )  ■  d.DO.O.O^ 


00  100  J  •  1.N1 

x  •  *<r.ji 

*C(J,J)  •  OCNPLXIX. 0.001 
CONTINUE 

00  ZOO  1  •  1 , HI 

oo  zoo  j  •  t.m 

X  • 

v  •  x(j.n 

BC(I.J)  •  0CHPLX1X . 0 . DO  1 
XC(J.I)  •  0CNPLX(Y. 0.001 
CONTINUE 

DO  300  t  •  l.Ll 
DO  500  J  •  i.Nl 
<  »  C1I.J1 

CC(I.J)  .  3CMPLX(X.0.00! 

CONTINUE 

00  Z10  1  a  l,ul 
00  Z10  J  •  1 .Ml 
OC(I.J)  •  DCMPLX (Dd.Jl.0.001 

AUGMENT  (IF  REQD1  C  TO  INVOKE  A  SOUARE  RETURN  DIFF  MATRIX 
PRESENTLY  THE  PROGRAM  AUGMENTS  WITH  THE  IDENTITY 
IFCL1 .EQ.Nl 1QOTO  J50 


DO  325  J  •  l. INDEX 

CC( J*L1 ♦ J*L1 )  *  Cl. 00. 0. DO) 

CONTINUE 
MCI)  *  l.D-01 

DISFLAV  AUGMENTED  F  MATRIX  FOR  SVD 
MRITSC5.J10) 

FORMAT( 15X. *  ....  AUGMENTED  F  MATRIX  FOR  SVD  COMP  ...»••/) 
00  311  J  ■  1 » Ml 
DO  in  ft  •  l.Nl 
X2  •  DREalCFCC J .K ) ) 

X3»  DIMAO(FCCJ.K) ) 

WRITE(6.312W,K.X2.X3 

FORMAT (ZX. ' FCC ' . IZ , ' . ' • IZ. * )  .  * .E1Z.5. '  •  J-.EIZ.S1 
CONTINUE 

00  500  l  .  I.ZIO 
DO  400  J  .  l.Nl 
DO  *00  K  «  l.Nl 
X  •  W( 1 ) 

WMCKJ.K)  .  OCMPLXtO.OO.Xl  .  UNITYC(J.K)  -  ACIJ.Kl 
CONTINUE 

...•■■•.■IMPORTANT  NOTE............ 

•  L EOT  1C  DESTROYS  WMC1  AND  a 

•  REPLACES  UNITYC  WITH  THE  INVERSE" 

•  OF  WMC1  . 


UNITYC(J.K)  -  ACIJ.Kl 


CALL  LEOTICCWMCI  .N1 .10. UNITYC. Nl.  10.0. WA.  1ER  1 
WRITE(5.*0ll 

FORMATUX.'  <SI  -  A>-1  •  ./I 
00  *0Z  J  .  l.Nl 

HR  ITS (5 *4100 1 (UNITYC (J ,K 1 . X* I ,N1 1 
CONTINUE 

CALL  CMATML(UNITYC.BC.N1 .Nl .Ml . WMC3 1 
CALL  CMATML ( CC • WMCS .Ll.Nl.Ml.GC) 

COMPUTE  <F>  »  <0> 

00  8000  J  •  1 .Ml 

XRI TE (4.41 00 KPCIJ.Kl.K. l.Nl) 

CONTINUE 

IFdFEED.EO.llOOTO  410 
IPUFEEO.EO.Z1GOTO  410 
00  41Z  J  .  l.Ll 
DO  41Z  K  •  1  > Ml 
OC(J.K)  .  OC(J.X)  ♦  OC(J.K) 

CALL  CMATML(FC.0C.M1.l1.M1,wmCZI 
HRITC14.4000) 

FORMAT!  IX.  '  <St  -  A>  ..-1  .  f./) 

00  4001  J  .  l.Nl 


A  *  v  -R  N  «»  _ 


C  WRITE(6.4100HMMC3(J.K).K*1.M1) 

C100  FORMAT !8 (E9 .2* 1X.C9 .2 ) ) 

COOl  CONTINUE 
C  MRITCU.S000) 

COOO  FORMAT ( IX* 'C  *  INV<SI  -  A>  *  B*./> 

C  DO  5001  J  •  1.N1 
C  MRITE(4.41QOHOC(J.K).Kal.Ml) 

COOl  CONTINUE 

C  WRITE (6 . 4000 ) 

COOO  FORMATaX.*  F  "  S  *./) 

C  JO  6001  J  ■  1 . Ml 
C  -*RITEC6.4lQ0)(WMC2(J.K).K»l.Mli 

COOl  CONTINUE 

C  COMPUTE  <0>  *  <F> 

CALL  CMATMLCGC.FC.Ll. Ml. L1.WMC4) 

C  RESTORE  THE  COMPLEX  IDENTITY  MATRIX 

DO  A50  J  ■  1.N1 
DO  450  K  «  1 »Nl 
X  •  UNITY! J .K ) 

UNITYC(J.K)  •  DCMPLXCX.0.D01 
450  CONTINUE 

C  COMPUTE  <I>  ♦  <F>  *  <0> 

DO  400  J  ■  1 »M1 
DO  600  K  •  1.M1 

RDM( J .  K  )  •  UNITYC(J»K)  *  WMC2 ( J  *  K  ) 

400  CONTINUE 

C  COMPUTE  <I>  •  <0>  *  <F> 

DO  650  J  •  1.L1 
00  650  *  •  1 • Ll 

RDMKJ.KJ  •  UNITYC(J.K)  ♦  WMC4CJ.K) 

650  CONTINUE 

C  MRITEC4. 410)1. 

CIO  FORMAT!2X.*N(' .12.* )  •  *.E12.5) 

C  WRITE (4*411) 

CU  FORMAT !2X.  *  ***•  RETURN  DIFFERENCE  MATRIX  **■*•./) 

C  DO  612  J  •  1 .Ml 

C  00  612  X  ■  t.Ml 

C  XI*  DRCAL C RDM !  J  •  <  1 ) 

C  Y 1  *  0 1 MAO ( RDM ( J  >  K ) ) 

C  WRITE(6.615)J.K.XI.Y1 

CIS  FORMAT (IX.*  RON  ( * . 12 . * . * .  12 . *  )  ■  *.E12.5.’  ♦  J*.EI2.5) 

C12  CONTINUE 

C  COMFUTE  CSVO  OF  <I>  ♦  <F>  «  <0> 

CALL  C3V0(RDM.10.10.M1.M1.0.M1.M1.S1.U!.V1 ) 

C  COMPUTE  CSVD  OF  <I>  *  <G>  •  <F> 

CALL  CSV0(R0MI  .10. 10.LI.L1 .0.L1.L1  •SC.UU.VU  ) 

C  MRITE(6. 800)1 

COO  FORMAT! /5X. ‘SINGULAR  VALUES  FOR  W!*.I2.*J  •*./) 

C  WRITE !6.700)!S1!J).J*I.L1 ) 

COO  FORMAT! 1X»4(E12.5>IX)) 

C  WRITE  ! 6 . 615  )  SI (Ll  ) 

CIS  FORMAT !/2X. 'MIN  SINGULAR  VALUE  ■  *.E12.5) 

SVMAX(I)  •  SI (1 ) 

SVMAXim  ■  S2!  I ) 

IF ! SI ! Ml l.LE.O. )GOTO  417 
!F!S2(L1).LE.O.DO)OOTO  417 
SVMU)  •  SI  (Mi  ) 

SVMl(Z)  •  S2 ! L 1 ) 

GOTO  619 

417  WRITC!6.418) 

418  . . •«•  RTN  DIFF  MATRIX  IS  RANK  DEFICIENT"****"* ‘ ) 

SVMII)  ■  9.9999990*09 

419  MUM  )  ■  M!  X )  ♦  .50 

500  CONTINUE 

RETURN 

CNO 

. . . . a . a . a*********************** 

C 

C  SUBROUTINE  CMATML  ICOMPLEX  MATRIX  MULTIPLICATION) 
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c 

C  CO^UTISI  YY  .  a  »  II 

C  IA  •  a  OP  ROMS  IN  AA 

C  Li.  ■  a  OF  ROMS  IN  88  AM)  a  OF  COLUMNS  IN  AA 

C  IB  »  a  OF  COLUMNS  IN  88 

. . . . . . ***** . . 

SUBROUTING  CMATML(AA.B8.!A.LL.IB.VV) 

COMPLEX* 14  AA( 10. 10). 88(10. 10 ) . VYt 10. 10 ) 
INTEGER  IA.LL.I8 
00  30  I  •  1 • I A 
OO  SO  J  •  1.18 
YVd.j)  •  (0.00.0.00) 

00  10  INDEX  ■  l.LL 

'V(I.J)  •  vvfl.j)  ♦  AAd.INOtX)  *  3B(  INDEX .  J ) 


10 

CONTINUE 

:o 

CONTINUE 

50 

CONTINUE 

RETURN 

ENO 

. . . . ********* 

C 

C  SUBROUTINE  csvd 

C  COMPLEX  SINGULAR  VALUE  DECOMPOSITION  SUBROUTINE 

c 

. . . . ******* 

SUBROUTINE  CSVD  (A.MMAX.NMAX.M.N. IP -NU.NV.S. U.V) 
IMPLICIT  *£AL»8(A-M.P-2) 

COMPLEX* l 4 A ( MMAX . U . U ( MMAX . 1) . V ( NMAX , 1 ) 

INTEGER  M.N.IP.NU.NV 

real*®  sm 

COMPLEX* 14  Q.R 

REAL*®  B(  lOO).C(lOO).TUOO) 

OATA  ETA. TOL/1. 50-8. 1.0-51/ 

NP*N*IP 
Nl  *N* l 
C 

C  HOUSEHOLDER  REDUCTION 
C(1)*0.00 
<«1 

10  Kl-KM 

C 

C  ELIMINATION  of  A(I.K).!*K*1 . M 

Z*0.00 
00  SO  I*K.M 

SO  r*r*0REAL(ACI.K)J**S*0lMAG(ACl.<) )**s 

8( K ) *0 . 00 

IF  C3.L6.T0L)  00  TO  70 
:«0SQRT(Z) 

B(K)*Z 

M*C0ABS(A(K.K) ) 

0*( l .00.0.00) 

IF  (W.NE.O.DO)  Q*A(K.K)/W 
A(K.K)*Q*(Z*W) 

IP  CK.EO.NP)  GO  TO  70 
00  50  J*K 1 .NP 
Q* ( 0 .00 • 0 . DO ) 

DO  SO  I«K.H 

50  Q*0*DC0NJG(A(I.K)1*A(I.J) 

0*0/(Z»(Z*W) ) 
oo  40  I*K.M 

40  A(!,J)»A(I.J1-Q*A(t.K) 

50  CONTINUE 

C 

C  PHASE  TRANSFORMATION 

0 •- 0CONJO ( A ( K . X ) ) /CO ABS (  A  ( K .  K  )  J 
DO  40  J*K  1 .  NP 
40  A(K.J)*Q*A(K. J ) 

C 

C  ELIMINATION  of  A(K.J), J*K*2. . . . .N 
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70  IP  (K.CQ.N)  90  TO  140 

Z-0.00 
OO  00 

BO  Z-Z*0ftEAlU(K.jn»*2*0!HAG(ACK.J))»»2 

CfKl )*0.00 

IP  CZ.LE.T0L1  00  TO  ISO 
Z-OSQRT (Z) 

CIKl )»Z 

W-CDA8S ( A( K  » K l  )  ) 

Q-U.  DO.  0.001 

IP  CW.NE. 0.001  Q-ACK.Kll/M 
A(K«K1 )-Q» (Z*W 1 
00  110 

Qa(0 .00*0.00 1 
00  «0  JaKl.M 

90  g-o*ocowjo(AC<.  j  n*»A(r.  jj 
o»Q/(Z*(Z*wn 
DO  100  J«Kl.N 

100  ACI.J)aA(I.J)-Q"A(K,J) 

110  CONTINUE 

c 

c  phase  transformation 

Oa-DCONJOCA(K.K1 n/CDABS(A(K.Kl n 
00  120  I-K1.M 
120  A(I»K1).A(|»K1 )*Q 

130  <*<1 

00  TO  10 

c 

c  tolerence  for  negligible  elements 

140  EPS-0- DQ 

00  150  K-i.N 
S(K)-BCK) 

T(K)-C(K) 

ISO  CPS-0MAX1 (E?5*$(K )*T(K ) 1 

eps-eps-eta 

c 

C  INITIALIZATION  op  U  and  V 

IP  (NU.EQ.O )  go  to  iso 
DO  170  J»l.NU 
DO  1*0  I-l.M 
1*0  U(t*J)-(O.DO*O.DO) 

170  U(J.J)-(1.00*0.00) 

180  IP  (NV.EQ.O)  GO  TO  210 
DO  200  JM.NV 
00  190  I-I.N 
190  V( I ,J J-IO.OO.O.OO) 

200  V(J.J)«( 1 .00*0.00) 

c 

C  OR  0 l AGONAL : 2a T I ON 
210  00  380  KK-l.N 

K-Nl-KK 

C 

C  TEST  POR  SPLIT 
220  OO  230  LL-l.K 
L-K-l-LL 

IP  (OA0S(T(L)).LE.EPS)  OO  TO  290 
IP  CDA8S(S(L-1 n.LE.EPS)  OO  TO  2*0 
230  CONTINUE 
C 

C  CANCELLATION  OP  ECL) 

240  CS-0.00 

SN-1.00 

Ll-L-l 

OO  280  I-L.K 
P-SN«»T(I ) 

Td)-CS-T(t) 

IP  (DA8SCP ) . LE . EPS )  GO  TO  290 
H-S(I) 

W-OSORT(P»P*H-H) 
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CS*H/M 

SN*-F/W 

IF  (NU.EQ.O)  00  TO  240 
00  2S0  J«l.N 
X>MCALCU(J.Lin 
v«o«CALCucj.m 

U(J*L1  )«DCMFt_X(X"C5*V«SN.0.00) 

UCJ. I )*0CMPLX(V«C3-K»SN.0.D0 ) 

IF  (NP.EQ.N)  GO  TO  280 
X  270  J-Nl.NP 
0*ACLI.JI 
RaMl.j) 

A(L1 . J )*Q*CS*R*SN 
ACI.J  1*R»CS~G"SN 

continue 

TEST  FOR  CONVERGENCE 
I  M«S(K) 

IF  (L.EQ.K )  GQ  TO  34Q 

ORIGIN  SHIFT 

X-5CU 
V-SOC-l ) 

G«T(K- 1  ) 

H«T(KJ 

F*(CV-w)»{ym*(G-H)»(G*M)i/(2.00»H-V> 
0«0SQRT(P*F*i .00 ) 

IF  (F.LT.O.OO)  G*-0 

F-{  ex-Win  CX*W)*(V/(F*G)-MMH)/X 


CSal.OQ 

SNal.OO 

U«L*| 

X  350  I.L1.K 
G»T(I) 

Vasin 

H*SN*0 

0*C5»0 

W«DSQRT(H<*H«F»F ) 

T(H)-M 

CS»P/M 

SN-H/N 

F«X»CS*0"SN 

0«Gi*CS-X*SN 

H«Y»SN 

Y-Y-CS 

IF  (NV.EO.O)  00  TO  310 
X  300  Ja 1 .  N 
X-OREALCVIJ. I- 1 1 ) 

W«0REAU(V(J. I ) ) 

V(J. I-t )>DCHPLX(X"CS*M«Sn«  0 . 00  ) 
V( J . I )«OCMPlX (HnCS-XnSN . 0 . 00 ) 
W»DSQRT(H»H*PnF> 
sd-n-w 
CS«F/M 
5N»H/W 
F«CS»G*SNnY 
X«CS*V-SN»G 
IF  (NU.EO.O)  GO  TO  330 
X  320  J-l.N 

v«oreacoi(j.i-ui 

M«DREAL(U( J* I ) ) 

UCJ.I-1  )»XMFLX(YnCS*N«SN.0.00) 
U(J.  I  )  *0CHPl_X C  W»CS-  Y*SN .  0  .  DO  I 
IF  (N.EO.NP)  00  TO  350 
X  340  JaNl.NP 
Q-AU-l.J) 


S.-  *.w 


ft-A(I.J) 

A( 1*1 • J )*QaC$*R«SN 
540  AU.J)aR"CS-QaSN 
550  CONTI HUE 

T(L)«0.00 
TtIClaF 
S(K)aJC 
00  TO  220 
C 

C  CONVERGENCE 

540  IE  CH.GE. 0.001  00  TO  580 
SCKJ—W 

IF  (NV.EQ.O)  00  TO  580 
OO  570  J*l.N 
570  V(J.K)—V(J.K) 

580  CONTINUE 
C 

C  SORT  SINGULAR  VALUES 
OO  450  K-l.N 
0—1  .DO 
JaK 

00  590  lalC.N 
IE  CS(I).LE.O)  00  TO  540 

o«scn 

J-I 

540  CONTINUE 

IF  (J.EQ.K1  00  TO  450 
SCJ)aS(K) 

StKJaO 

IE  (NV.EQ.O)  00  TO  410 
OO  400  I » 1 • N 
QaV(I.J) 

V(I.J)»V(I.K) 

400  V( 1 *K )*Q 
410  IE  CNU.EO.O)  GO  TO  450 
00  420  t-I. N 
Q*U( I «U ) 

U(  I » J  1»U( I f K) 

420  Ut I »K)*0 
450  IF  (N.EQ.NF)  GO  TO  450 
OO  440  I«N1. NF 
QaACJ.I) 

A(J.I)«A(K.I) 

440  A(K.I)«Q 
450  CONTINUE 
C 

C  BACK  TRANSFORMATION 

IF  CNU.EO.O)  GO  TO  510 
OO  500  KK » 1  *  N 
KaNl-KK 

IF  (B(K).EQ.O.OO)  00  TO  500 
Q»A(K.K)/C0A8S(A(K.K)  ) 

OO  440  Jil.NU 
440  U(K»J)aO*U(KfJ) 

00  440  JM.NU 
Q-CO.DO.O.DO) 

00  470  !«K.H 

470  OaO*OCONJGCA(I .K)HU(I.J) 

Q»0/ ( CDA8S (A(K.K))"8(K)) 

00  480  I«K.M 

480  U(I.J)«U(I.J)-0«A(I.K) 

440  CONTINUE 
500  CONTINUE 
510  IF  (NV.EQ.O)  OO  TO  570 

IF  (N.LT.2)  OO  TO  570 
00  540  KK ■ 2 » N 
KaNl-KK 
K I *K* I 

IF  (C(KI).EQ.O.OO)  00  TO  540 


Q»-OCONJQ ( A(K . K 1 ) J /COABS ( A ( K . KI ) J 
00  S20  J-t.NV 
920  V(K1.J)*Q*V(IU.J) 

00  550  J«i «NV 
O-(O.OO.O.OO) 

00  550  I-K1.M 

910  Q»0*ACK.n»V(I.J) 

0*Q/(C0ABS(ACK.K1 )  }«C(Kl  )) 

00  560  IsKl.N 

*A0  V( I . J  )«V( I . J )-Q*DCONJO(A(K. I ) ) 

55 0  CONTINUE 
543  CONTI NUC 
570  RETURN 

€N0 


C  SUBROUTINE  SVPLOTt  GENERATES  DATA  FILE  FOR  USING  OISSPLA 

C  TO  PCOT  MINIMUM  SINQULAR  VALUE  OF  THE  RETURN 

C  DIFFERENCE  matrix  VS.  FREOUCNCV 

C 

. . . . . . . . 

SUBROUTINE  SVPUOT(SVH.SVMI.N) 

REAL'S  *(2000  ) .SVM( 20  00  J.SVHl (2000  ) 

DIMENSION  NP (2000 ).SVMP( 2000  J.SVM1P (2000  ) 

C  CONVERT  DATA  TO  SINGLE  PRECISION  FOR  DISSPLA  COMPATIBILITY 

00  10  t  •  1.2000 
wP(I)  *  SNQLCMUII 
3VMP(I)  •  SNGL(SVMCIl) 

SVMIP(I)  •  SNOLISVMIC  !) 

10  CONTINUE 

00  20  I  •  1.2000.2 

WPITEI 7 . 50 )WP ( I ) *SVMP( I ) . SVMIP ( I ) »wP ( I M ) . SVHp (1*1 ) .SVMIP ( 1*1) 

50  FORMAT  (S(C12.S.IX.E12.S)) 

20  CONTINUE 

RETURN 

CNO 

. . » . . . • . . . . . 

c  ■ 

C  SUBROUTIN  KVCCT:  CALCULATES  FEEDBACK  GAINS  VIA  ■ 

C  KAUTSKV.  ET.  AL.  ALGORITHM  ( 1 985  1  • 

C  • 

. . . . . 

SUBROUTINE  KV£CT{A.8.C.O»CIOO»F*Ni .Ml .LI .VO. V. I FEED) 

IMPLICIT  REAL'S (A-H.P-Z) 

REal*§  A(10. 10). 8(10.10 >.C( 10.10 ).F( 10.10 J.UT (10. 10). CSC  10. 10). 

1  SC  10 ).WK(20) .BSI 10. 10).SM(10.10).VT(10.10).CUT(10. 10). SC( 10). 

2  RZ( 10 . 10 ) . waREaI (250  ) . WARE A2 ( 250 ) .D( 10 « 10 ) .CSS ( 1 0 • 10). 

3  UTVC 10. I0).R?INV(10. 10I.VK 10. 1 0 ) . WK6 (20 ) . CSS INV C 10 . 10). 

«  S1(10).S2(10].MK1(20).WK2(20).NA(20).SB(10].MK8(50).BGI(10.10). 

5  VDSr(10.10).VDIST(10.10).U(10.10).UO(10.10).UlT(10.10).Ul(10.lO). 
«  UNITY (10. 10) .MC2000 ) .$VM(2000 ) .SVMAX 12000 ) . SVMl t 2000 ) . 

7  U0TC10. 10).RNULL(10.10).SVMAX1(2000).8PIC  10. 10J.8SK  10. 10). 

B  SMC (10*10). SV (10. 10). BCHK (10.10). WARE AS (250). SX (10). CO 1(10. 10) 
COMPLEX* u  ElOOClOJ.VdO. 10).(^ITVC(10.10 l.AMLtlO. IQ).UITC(IO.IO) 

1  .RNULLCUO.  10>.WV(10).HV1C(10  J.RCSUO.  10).V$AVf  (10. 10). 

2  VOS( 10.10 ) . VD1SC 10 . 10 ) > UVDS< 10.10) . W0S( 10.10)* UVDISd 0.10). 

5  WOIS( 10. 10). 21. VD (10*10) *E!ODM( 10. 10). EV 1(10. 10) . VEVI (10.10). 

4  VMA(10.10).U0TC(i0. 10).UTVCC10. 10  J.RZINVCUO. 10)  .FCC10. 10). 

5  VO 1(10. 10). VI V(10. 10 ) . UOC ( 10.10 ) .C0TC( 10. 10). Cl TC (10. 10). 

4  R2U( 10. 10). BP  1C (10. 10) . ZINVCC( 10 . 10 ) .  FC2( 10.10  )  .DCPC( 10. 10). 

7  FCS(10.10).DC(10.10).RZC(10. 10).CINVZ( 10. 10  J.OCFCK 10. 10) 
B.XVS(10.10).XV(10.10).XVU(10.10J.XVV(10.10).SXC(10. 10). 

9  XOT (10*10) > SXX( 10. 10 ) .RU( 10. 10) *RV( 10. 10 ) .RVV( 10.10). RX (10. 10) 
COMPLEX* U  RXZ(10.10).XVT(10.10).XE(10.10).ACa0.10).AX(10.lO). 

1  XCHECKUO.  10).RVU(10.  10) 

INTEGER  NI. Ml. LI. INK (1000). 1C(10).IDO( 1). IDOl ( 20 ) . !C1 < 20 5 . 

1  IRON( 10*10). IFLT ( 10 ) • IELEMC 10 ) > ILOG . IFCEO 

RCAL*4  SROBJ .EPS. SHV( 10 ) .VLSI  100). VUB( 1 00 ).RA (20.40). 0(1  ) . DF (20 ) . 
1  WKS (5030 ) . XBJ ( 100 ) .COBJ*GC(20 ) *E • UR. UC • EPSR  *CPSC • El .E2 
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OWUCT&IO  TITLz 


INITIALIZE  MATRICES  ft  VAftlAftLES 


WS  •  0. 

e  •  o. 


DO  10  I  »  1.10 
sen  *  o.oo 
01(1)  *  0 . DO 


MV  CD  ■  0  .  DO 
OKI)  ■  0. 
lFLT(l)  •  0 

swvm  ■  o. 

00  10  J  •  1.10 
UT(I.J)  a  0.00 
Vl(t.J)  ■  0.00 
CUTCI.J1  •  0.00 
CS(X.J)  •  0.00 
SM(X.J)  •  0 . 00 
AC(I.J)  ■  (O.OO.O.DO) 
8*1(1. J)  •  0.00 
iSI(t.J)  *  0.00 
VDt(I.J)  •  (0.00.0.00) 
EIQOM(I.J)  •  (0.00.0.00) 
evia.j)  •  (o.oo.o.oo) 
vevid.j)  •  (o.oo.o.oo) 

VMA(I.J)  a  (0.00.0.00) 
UTV(I.J)  ■  0.00 
UTVC(t.J)  ■  (0.00.0.00) 
VOS(I.J)  •  0.00 
VDST(X.J)  •  0.00 
VOISC.J)  •  0.00 
VOIST(l.J)  -  0.00 
UCI.JJa  0.00 
UOCX.J)  •  0.00 
U0TU.J1  •  0.00 
UOTC(Z.J)  ■  (0.00.0.00) 
Ul(I.J)  ■  0 . DO 
UIT(I.J)  a  0.00 
UITC(I.J)  •  (0.00*0.00) 
RNULL(I-J)  ■  0.00 
resci.j)  >  (o.oo.o.oo) 
RZINV(I.J)  a  0.00 
RZINVC(I.J)  a  (0.00.0.00) 
UNI  TV ( I . J )  a  0.00 
AMUI.JJ  •  (O.OO.O.OO) 
SHC(I.J)  •  0.00 
SVU.J)  a  0.00 
8CHKCX.J)  a  0.00 

fU(I.J)  a  0. 

IRON(l.J)  ■  0 
UNXTVC(X.J)  ■  (0.00.0.00) 
COTC(I.J)  >  (0.00.0.00) 
riNvccu.j)  •  (o.do.o.do) 
CSft(I.J)  ■  0.00 
CSSINV(t.J)  a  0.00 
ClNVZd.J)  •  (0.00.0.00) 
•*1C(I.J)  a  (0,00.0.00) 
RZU(l.J)  a  (0.00*0.00) 
RCZ(I.J)  a  (0.00*0.00) 
OCFC(t.J)  a  (0.00*0.00) 


OCFCl(I.J)  -  CO. OO.O. DO) 

PC(l.J)  •  (0.00.0.00) 
pcsii.j)  •  co.oo.o.oo) 
xvuu.j)  •  (o.oo.o.oo) 

XW(I.J)  <  (0.00.0.00) 

XOTlt  *J)  •  (O.OO.O.OO) 

SXC(t.J)  ■  (0.00.0.00) 

SXX(I.J)  •  (0.00.0.00) 

ItUCI.J)  •  (0.00.0.00) 

KVCI.J1  <  (0.00.0. DO) 

rwu.j)  •  co.oo.o.oo) 

RVUCI.J)  «  (0.00.0.00) 

RX(I.J)  *  (0.00.0.00) 

»K2(I.J)  *  <0.00.0.00) 

10  CONTINUE 

do  lr  i  *  i.2o 

NKltl  •  0.00 
HKICt)  <  0.00 
8CCXI  ■  0. 

MA(I)  ■  0.00 
WK4CI)  •  0.00 

12  WK2C1)  <  0.00 

00  II  I  •  IfNI 
00  11  J  I  l  .Ml 
3SKI.J)  «  8(1. J) 

11  BS(I.J)  -  8(1. J) 

00  IS  I  *  l.CSQ 
WAREAS(I)  <0.00 
WAREASd)  <  0.00 

13  WARE A 1 ( I  )  •  0.00 

00  S  I  •  1.100 
VLB ( I )  »  0. 

VUB(I)  <  0. 

5  XBJ(X)  <  0. 

00  14  1  •  1.1000 

14  IWK(I)  •  0 

00  IS  I  *  1.3000 

18  WK3U)  •  0.0 

. . .  . . •"•"•’"'■"••'I* . . . . Ml 

c 

C  REINIT  UT.  8UILO  COMPLEX  A  8  PINO  SVD  OP  8 

c 

. . . 

DO  20  I  <  1.NI 
ONITYtl.n  ■  1.00 
CUT ( I . 1 )  <  1.00 
UNITYC(I.I)  •  Cl. DO. 0.00) 

UTCI.t)  <  1.00 
00  20  J  <  1.N1 

20  AC(I.J)  <  OCMPLX ( A ( I . j ) . 0 . 00 ) 

CALL  LSVOP(BS.iO.Nl.Ml.UT.lO.Nl.S.WK.lER) 

CALL  RANKO(BS» UT . S ■ Ml . MI .UOTC. U1TC.R2INVC. I  RANK . 801 ) 
CALL  PRTCMSCCLRSCRN  *) 

IP(IER.NE.33 )GOTO  25 
HR  1 TE ( 4 . 24 ) I RANK 

24  PORMAT(/5X .*<<<<  B  IS  RANK  DEFICIENT.  RANK  <  . . 

GOTO  42 

C  DECOMPOSE  8 

C  PINO  U 

25  IRANK  <  Ml 

00  21  I  <  1.N1 
00  21  J  •  1.N1 

21  U(I.J)  <  grcj.n 

C  PINO  UO  I  UO  TRANSPOSE 

00  22  I  •  1.N1 
OO  22  J  ■  1 »M1 
UO(I.J)  <  UII.J) 

UOC(I.J)  <  OCMPLX ( UO ( ! • J ) . 0 . 00 ) 

UOT(J.l)  •  UtX.J) 
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22  UOTClJ.n  •  DCMPLX  ( U  ( I  >  J  )  •  0  .  DO ) 

C  PINO  U1  t  Ut  TRANSPOSE 

00  2S  I  •  l.Nl 
DO  25  J  ■  Ml  ♦  l.Ml 

uui.jj  •  uu.jj 

UlTU-Ml.n  >  Utl.jl 

25  UlTCtJ-Ml.n  *  OCMPLXtUU  .Jl.O.OG) 

00  50  X  -  l.Ml 
DO  50  J  •  l.Ml 
VICI.J)  ■  BSCI.J) 

SO  CONTINUE 

C  WHITE  U  FOR  0E3UG 

C  WRITEC6.500) 

COO  FQRMAT(/5X.  *  »«•»»  U  FOR  8  *  UDV»"T)  ««»«'./) 

C  00  550  J  »  l.Nl 

C  HRITEU.525 KU(J.K) .K«l .Nl) 

525  FORMAT(1X.4(EIO.S.IX) > 

CSO  CONTINUE 

C  WRITE  UOT  AND  UlT  FOR  0E8UG 

C  WRITE (6, 400) 

COO  FORMAT ( /5X* '  UOT  »»«■•./) 

C  00  450  J  •  l.Nl 

C  WRlTeC*.525KUCrU.K).K«l,Nn 

C50  CONTINUE 
C  WRITE((.700) 

COO  FORMAT ( /5X UlT 
C  DO  750  J  •  l.Nl 

C  WRITE(i*S2S)(UlT(J»K) .K»l »Nl  ) 

CSO  CONTINUE 

. . . . . . . . . . . 

c 

C  FIND  RZ  •  DIAOCLAMOI  LAMD2  .  ...>V"«T 

C 

. . ••••■ . . . . 

00  40  I  •  l.Ml 
00  40  J  •  l.Ml 

40  VT(I.J)  •  VKJ.M 

00  SO  I  •  l.Ml 
50  SHU. I)  •  S(t) 

CALL  VMULFF(SM.VT.M1.MI.M1.10.10.RZ. 10.IER) 

00  41  l  •  l.Ml 
DO  41  J  .  l.Ml 

41  RZCU.J)  ■  OCNPLXCRZC  I.  J  ).0.00) 

C»*"* . »-»• . . . . . . » . . . • . ■ . 

c 

C  COMPUTE  U"SIGMA»V  TRANSPOSE  FOR  PGM  DEBUG 

C 

. . . . . . . . . . . . 

DO  625  J  •  l.Nl 
825  SMC(J.J)  •  S(J) 

CALL  VMULFFtSMC.VT.Nl .Ml .Ml . 1 0 . 1 0 . SV. 1 0 . IER ) 

CALL  VMULFP(U.SV.NI.MI.MI.IO.IO.BCMK.IO.IER) 

WRITEC6  >800 ) 

600  FORMAT (✓5X.,«*»w  U  "  SIGMA  •  VTRAN  ■»«■*./) 

00  650  J  •  l.Nl 

WRITE (6. 525  KBCHK(J.K) .K"l .Ml ) 

850  CONTINUE 

. . . . . . . * . . . 

c 

C  -SELECT-  EIGENVECTOR  MATRIX 

C  (PROGRAM  EITHER  READS  IN  THE  DESIRED  SET  FROM  SYSTEM  DATA 

C  FILE  OR  MILL  READ  LATEST  DESIGN  EIGENVECTOR  MATRIX  FROM 

C  PREVIOUS  COMPUTATION) 

. . «•«"""•»»•• . . . . . . 

42  WRITEU.tt) 

*9  PORMAT(/I0x. ’•■PH  PRESENTLY  IN  KVECT ,  ENTER  Ml"  IP  YOU  DESIRE  ■ 

l*./10X.  •»""*  TO  USE  PREVIOUSLY  COMPUTED  EIGENVECTOR  MA-  "■ 

2./10X.  TRIX  OR  ENTER  "2H  IP  YOU  DESIRE  TO  RECOMPUTE" ■ 

I./10X,  THE  EIGENVECTOR  MATRIX. 
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1. /Sx.  OF  EIGENVECTOR  NO. ' . 12  *  ‘  WHICH  ARE  ARBITRARY 

2. /5X.  IM  12  FORMAT.  EXAMP _E i  “0102" 

I.  n 

REAOC*. 1 002 1 ( IROUI J. 1 1 . J*1 • IELE ) 

1002  FORMAT ( 10121 

CALL  FRTCMSCCLRSCRN  *  ) 

. . . . . . . . . . 

c 

C  SET  UP  FOR  AOS  OPTIMIZER  CALL  IN  SINGLE  PRECISION  FOR  RESiOUAL 

C 

. . . . . . . 

«62  SRCBJ  ■  SNOL(ROBJ) 

INFO  *  0 
ISTRAT  -  0 
I0PT  .  3 

IONED  »  l 
NOV  a  2*N 1 
NCON  a  Q 
I  OR  AO  >  0 
IPR1NT  •  1000 
NOT  a  0 
NR A  i  10 
NCOLA  •  10 
C  SET  SOUNDS 

C  ASK  ALLOWED  TOLERANCE  ON  DESIGN  EIGENVECTORS 

TF( TELE. £0.0 JGOTO  1007 
1008  WRITEI6. 10051 

1005  FORMAT C/5X. *  «■**  ENTER  REAL  UPPER  BOUNO  OF  ARBITRARY  ELEMENTS  ■■■■ 

l’,/sx.  IN  "FlC  •  5"  FORMAT.  ENTER  -1**  FOR  NO  BOUND. 

READ(«.1020)UR 
WRITEC6. 10041 

100A  FORMAT (/5X» * »»»»  ENTER  IMAO  UPPER  BOUND  OF  ARBITRARY  ELEMENTS  ■»«« 
l‘./SX.  IN  "F12.S"  FORMAT.  ENTER  "1"  FOR  NO  80UN0. 

READ! ■. 1020 1UC 

IF!  UR .NC. 1 .E*04  1QOTO  1004 

UR  •  0. l£*21 

1006  IF(UC.NC.1.E*06)GOTO  1005 

UC  -  O.IE'21 

1005  IFIIELE.EQ.N1 1GOTO  1015 

1007  WRITE (6»1Q10) 

1010  FORMAT (/5X»  '  »»■•  ENTER  ALLOWED  EIGENVECTOR  TOLERANCE  IN  "F12.5"  FO 

1RMAT  ,/5X.  FOR  THOSE  EIGENVECTOR  ELEMENTS  »•»»•.  /5X. 

z  *  wwww  WHICH  ARE  NOT  ARBITRARY.  «•«■*./) 

WRITEI6. 1011 ) 

1011  FORMAT (5X . ' »■»»  ENTER  TOLERANCE  ON  REAL  PART  *»■■•. /) 

READ I « • 1020 )EPSR 
1020  FORMAT (F12 .5 ) 

WRITEC6. 10121 

1012  FORMATC5X. ' ENTER  TOLERANCE  ON  ImaG  PART  «««»*./) 

R£AD(". 10201EPSC 
1015  CALL  FRTCMSCCLRSCRN  •) 

JJ  •  0 

00  77  J  •  1. NOV- 1.2 
JJ  ■  JJ  ♦  1 
KPINO  >  0 

IFI IELE .EQ. 0 lOOTO  1026 
1014  DO  1025  K  •  1 » IELE 

IFI JJ. HE. IROWCK.I) lOOTO  1025 

KFINO  ■  1 

VUB(J)  •  UR 

VUB ( J ♦ 1 1  •  UC 

VLB(J)  •  -UR 

VLB (J* 11  ■  -UC 

1025  CONTINUE 

IFlKFIND.EO.iJOOTO  1027 

1026  X  *  ORCALCVOIJJ.I1 ) 

Y  a  D I MAO ( VO I J J • I ) ) 

VUB(J)  a  SNOLIX)  »  EPSR 
VUB ( J* 1  1  a  SNOLIYl  ♦  EPSC 
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VLKJ1  •  SNGLIXI  -  EPSR 
VLStJMl  •  SNOL(Y)  -  EPSC 
’  XI  •  DREALIWV;  Jll 

VI  •  OIMAGIMVI JJ  ) ) 

SHV(J)  •  SNOLIXU 
SWVIJM  )  •  SNGL1YI ) 
tC(J)  •  0 
ICIJM1  •  0 
OFljl  «  0 
DF(j.l)  m  0 
CONTINUE 

CALL  AOS (INFO. rSTRAT.lOPT.IONeD. IPRINT.IGRA0.N0V.NC0N.SWV.VL8. 

1  VUB . SRQBJ . O . IDG. NOT . IC»OF • ?A . NR  A . NCOLA . *IKS . 3000 . IWK. 1000) 
-J  *  0 

OO  78  j  *  i.UDV-l.C 
JJ  •  JJ  •  l 

NV(JJ)  ■  CNPLX C SWV ( J  I . SWV I J  *  1 1  1 
V(JJ.I)  •  WV(JJ) 

tFuNPc.ea.ajGOTo  s* 
reevaluate  objective  function 

CALL  CNATMLIRNULLC.WV. IY.N1 , 1 .WVIC! 

DO  82  J  •  I.IY 
REStJ.ll  >  MV  1C C J 1 
Y  •  9.00 
DO  85  J  »  t .  IY 

Y  ■  Y  *  0REAL(RE3(J. I 11*»I  .  OIMAG(RESIJ.I n««Z 
ROBJ  »  OSOR  T ( V 1 
SR OBJ  »  SNOLIROBJl 

CONTINUE  WITH  AOS  OPTIMIZATION  (MINIMIZING  ROBJ ) 

GOTO  86 

WRIT£(6.«S1R08J.I 

FOHmaT!/1x, OBJECTIVE  FUNCTION  VALUE  •  -.EIO.J.'  •••••./IX. 
1  '»«*»  FOR  EIGENVECTOR  NO.  '.IZ.' 

IF (OlMAGIZl 1 .EO . 0 . 00 1GOTO  SS 
IF(  ICONJO.EO.  1 1GOTO  SB 
90  ?f  X  •  I.N1 

ICONJO  •  0 

VIK.I1  «  OCOHJO(V(X.1-I1) 

CONTINUE 


display  results  of  <uit«<a-lamoma«i».oesireo  base  eigenvectors 


WITCH. *5) 

FORMAT!//**.-—.  THC  FOLLOWING  MATRIX  DISPLAYS  THE  "NEARNESS"  OF* 


;**•• ./5x. 
2»»«‘ ./SX. 
!•••• ./Sx. 
••••• ,/sx. 
S"."1 . /5X. 
««•«• ./SX. 


)•••'. /SX.  '««««  ENTER  "2*.  N 
DO  <0  I  .  t.IV 

write;«.»ii(res(i.ji.j*i.ni  i 

FORMAT! IX.8IE8.I.IX)) 

CONTINUE 

reaoc«.ioioiisat 

FORMAT! 1 1) 

IF! I SAT .EO. Z  3 GOTO  it 
DO  I!  J  ■  I.N1 
DO  II  <  •  I.NI 
VO(J.X)  •  V(J.X) 

GOTO  SI 


»««»  the  oesign  EIGENVECTORS  to  The  allowable  sus- 
««•-  SPACE  FOR  THE  SYSTEM  under  analysis  IN  COLUMN 
••••  FORMAT.  IF  THIS  "NEARNESS"  MATRIX  IS  NOT  SATIS- 
,M*  FACTORY.  ENTER  "I".  KVECT  MILL  NOW  USE  THE  OES- 
««»•  ION  EIGENVECTORS  AS  THE  NEW  DESIRED  BASE  EIGEN- 
VECTORS  ANO  REPEAT  OPTIMIZER  ROUTINE.  OTHERWISe 
ENTER  "2*.  NOTE.  -ZERO-  •  1 .0-06 


PINO  INV(V)  -  INVERSE  OF  OPTIMIZED  EIGENVECTORS 

TO  Ct*  FOR  INVERTIBILITy 
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I 

■» 


) 


I 


*4 


211 

94 

C 

C 

c 

c 


c 

c 

c 


210 

o« 

C 

c 

c 

C«" 


79 


c 

°2 

85 


IQ40 


1050 


86 

C» 

c 

c 

c 

c 

c 

c 

c 

c* 


C' 


C' 


DO  94  J  •  l.Nl 

00  94  K  -  l.Nl 
IF!IOPT.EO.l)GOTO  211 
WRITE (2.64)V(K.JJ 
VOCJ.K)  •  V(J.K) 

VSAVECJ.K)  *  V(J.K) 

DEBUG  WRITE  STATEMENTS 
TITLE«‘V* 

CALL  CWRITECV.N1  ,N1  .TITLE) 

CALL  CWRITE(UNITVC. HI .N1 .TITLE) 

CALL  -EQTICCVSAVE.N1 . iO.UNlTVC.Nl . iO.O.WA. 
CALL  CW«lTE(UNlTVC.Nl. Ml. TITLE) 


CALL  CMATMLCUNITVC. V.Nl .Wl .Nl .YIV) 

CALL  CWRITECVIV.N1 ,N1. TITLE) 

RESTORE  UNI TYC  AND  REPLACE  WITH  VDI 
00  210  I  -  l.Nl 
00  210  J  »  l.Nl 
VOXtX.J)  •  UNtTVC(I.J) 
UNITYCCI.J)  ■  DCMPLX(UNITY(I.J).O.DO) 


;er) 


FIND  2-NORM  CONDITION  OF  OPTIMIZED  EIGENVECTOR  MATRIX 


DO  79  I  ■  l.Nl 
DO  79  J  ■  l ,N1 
VDS(I.J)  ■  VCI.J) 

VDIS(I.J)  •  VDI(t.J) 

CALL  CSVD ( VDS .10.10.N1 .N1 .O.Nl ,NI .31 . UVDS . VVDS ) 
CALL  CSVD CVDIS. 10. 1 O.Nl. N1 .O.Nl .N1 . S2 . UVO IS . VVOIS ) 
C0ND2  •  Sl(l)»$2(l) 

CALL  FRTCMSCCLRSCRN  •) 

WRITE! 6.85 5C0N02 


FORMAT  ( /5X.  1  2-NORM  CONDITION  NO.  OF  EIGENVECTOR  MATRIX 

l ' • /5X .'*•••  IS  .£12. 5.* 

WRITEC6. 1040) 

FQRMAT(//5X. IF  2-NORM  CONO  NO.  IS  JNSAT , 

1.  '»■»•  ENTER  "l**  TO  MIN  CONO<V>  VIA  ADS. 

2.  •»««.■  enter  -2**  TO  RETURN  TO  ADS  MIN  OF  RE- 

S.  SIDUAL  OF  <V>. 

4.  IF  2-NORM  COND  NO.  IS  SATj  ENTER^S" 

5. /) 

REAO(».1050)ICOND 
FORMAT! 1 1 ) 

CALL  FRTCMSCCLRSCRN  *) 

I F ( I CONO . EQ . 2 ) GOTO  51 
IFdCOND.EQ.S  JGOTO  91 


nmmm  • 

MM' 


SET  UP  OPTIMIZER  CALL  FOR  2-NORM  CONDITION  NO.  OF  V 
NOCON  •  9  OF  ORTHOGONALITY  CONSTRAINTS 
NSSCON  ■  »  OF  ALLOWABLE  SUBSPACE  CONSTRAINTS 
NCON  ■  TOTAL  »  OF  CONSTRAINTS 
CAUTION!'!  NOT  OPERATIONAL 


C08J  •  SNGL(C0ND2) 
INFO  *  0 


ISTRAT  ■  0 
I  OPT  ■  4 
IONED  •  7 


NSSCON  •  Nl 
C  WRITE (4* 1070) 

C070  F0RMATI//5X, ENTER  NUMBER  OF  ORTHOGONALITY  CONSTRAINTS 
C  1  /5X.  In  12  FORMAT.  EXAMPLE!  ”04**  ••••*,/ 


./5X 

./5X 

./5X 

./5X 
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yi  »ii  *r  **  %n  ».»  ywywjw  *tht  **  y  y.*"  *".  >V",.''.M  *r  iwmrv-rvw-- 


JV' w*“V 


C  2  ) 

C  RCAOC". 1002)NOCON 

NCON  •  WSSCOM 
IGRAD  -  0 
IPRXNT  •  2020 
NOT  «  0 
MR A  •  10 
NCOLA  *  10 
NOV  ■  2  "Nl "N 1 

IV  *  Nl  -  Ml 

C  IF  THIS  IS  NOT  THE  FIRST  PASS  THROUGH  THE  CONDITION  NUMBER 

C  MINIMIZATION.  ASK  THE  USER  IP  HE/SHE  CESIRES  TO  USE  THE 

c  CURRENT  EIGENVECTOR  matrix  OR  IP  THEY  CESIRE  TO  USE  the 

C  EIGENVECTOR  MATRIX  COMPUTED  CURING  THE  RESIDUAL  MINIMIZATION. 

wRITEls » 1071 ) 

1071  FORMATC/5X.  *  IF  THIS  IS  THE  INITIAL  CONDITION  NUMBER  PASS  *•"« 

1*./5X.  ENTER  -2".  IP  NOT  anO  YOU  OESIRE  TO  REENTER  «»"" 

2*./SX.  •***«  -HE  OPTIMIZATION  WITH  THE  UPDATED  EIGENVECTOR"""" 

3’./5X.  ENTER  -2-.  OTHERWISE  ENTER  "l-  WHICH  WILL  RE-"""" 

4’,/SX.  *""•»  START  THE  OPTIMZATION  WITH  THE  EIGENVECTOR  ""»» 

5‘,/SX.  *■»»■  MATRIX  IN  "DESVEC”  DATA  FILE.  "«"» 

4  •  ./ 1 

REAOC".  1050)1  ICON 
IF(!ICON.Ea.2)GOTO  1072 
OO  1073  4  •  l, Ml 
00  1073  K  »  1 .Nl 
1073  VCJ.K)  •  VD(J.K) 

C  ASK  ALLOWED  TOLERANCE  ON  EIGENVECTOR  ELEMENTS 

1072  WRITEC6. 1080 1 

1080  FORMATC/5X. * "»■«  AT  LEAST  TWO  EIGENVECTORS  MUST  FLOAT  DURING  THIS 

1  «««m * ./$x. ' OPTIMIZATION.  ENTER  'HE  COLUMN  NO . 3  OF  THE  SIGEN- 

2  •  ,/8X.  *""•«  VECTORS  WHICH  MAY  -FLOAT"  IN  aSCENOING  ORDER  IN 

3  »«««* ./5X. •■»»•  12  FORMAT.  EXAMPLE:  ”0102"  WILL  FLOAT  EV  »  l  t  2 . 

4  ""■■• ,/) 

READI".l002HlFLTCI).lBl.Nl) 

WRITE14. 10031 
READ!" • 1020 ) UR 
WR1TE14. 1004) 

REAOC ■ • 1020 )UC 
IF(UR.NC.l.E*06)GOTO  1082 

1081  UR  •  0 . 1E*21 

1082  IFCUC.N€.1 ,E*0* 1GOTO  l 08 A 

1083  UC  ■  0.1C-21 

1 084  WRITE! 4 . 1010) 

WRITE  14.1011) 

REAOC". 1020 1EPSR 
WRITE!*. 1012 ) 

READ!"* 1020  JEPSC 
J  ■  l 

C  RE INI T  AND  SET  SOUNOS 

DO  130  K  >  l.Nl 
IC1(KJ  ■  0 
DECK )  ■  0. 

00  150  L  ■  l.Nl 
X  ■  DREALIVIL.K) ) 

V  ■  DIMAO(VCL.K)) 

XBJ(J)  >  SNGLCX) 

XBJ l J*1  )  ■  SNOLCV) 

00  151  tl  ■  l.Ml 

151  IF( IFLTC 1 1 ) .CQ.K JOOTO  200 

VUBCJ)  ■  XBJ(J)  •  ePSR 
VUBtJ'l)  ■  XBJ  ( J*  1  )  ♦  CPSC 
VL0CJ)  *  XBJCJJ  -  EPSR 
VLB(J*l)  ■  XBJ ( J* l )  -  EPSC 
J  •  J  ♦  2 
GOTO  ISO 

200  VUBCJ)  ■  UR 

VUB(J*1 )  ■  UC 
VLBCJ)  •  -UR 


•» 
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VLI(JM)  •  -UC 
J  •  J  •  2 
ISO  CONTINUE 

C  DEBUG  NBITE  STATEMENT 

C  HRITEC4 .2000 ) 

C000  FORMAT! /SX. *  «*»•  VECTOR  BOUNDS  FOR  AOS  ••■■*./) 

C  00  2001  J  ■  1 -NOV 

C  WR  Z  7C  <  4 « 2  002 )  VLB  f  J  J • XBJ (  J ) . VU9 (J) 

C002  FORMAT ( 1X.2(E12.S.2X)> 
coot  CONTINUE 

C  DEFINE  CONSTRAINTS  as  nonlinear,  inequality 

SO  13$  l  •  l .NCON 
135  !DC1(I )  »  0 

c  ;et  sounds  on  constraints 

w  MRITEI4. 10401 

C040  format ( /5X • ' ENTER  ALLOWED  'OLERanCE  DN  nOn-ORTmoqonalITy  •••• 
C  t  * • /5X .  OF  EIGENVECTORS  IN  DECIMAL  bORmaT.  •  ••• 

C  2* ./ » 

c  reaoc- loroie 

NRITEU.  1042) 

1042  F0RMAT(/5X. *•••»  ENTet  NEW  OESIRED  EIGENVALUES  FOR  CONDITION 


I’./fX.  NO.  min.  ENTER  IN  SAME  ORDER  AS  data  file. 

:'./5X.  NOTE:  EIGENVALUES  MUST  BE  ENTERED  IN  SAME 

3*./5x.  *•«••  ORDER  AS  CORRESFOOInO  EIGENVECTOR .  IF  El- 

4-./5X.  •  •••  GENVALUf  CORRESFOnOS  *0  A  -NON-FLOAT I NO" 

5’./5X.  ••••  EIGENVECTOR.  ;T  SHOULD  REMAIN  -HE  SAME  AS 

§‘./$X.  I*s  INFUT  /ALUE  *0  -AINTAIN  DESIGN  ROMTS. 

7* ,/ 1 


DO  1043  J  >  1.N1 
-RITEC4. 1044)- 

1044  FORMATf/iOX. • EIGENVALUE  NO-  '  ■ 12 • '  REAL  RaRT  ■ ' . / 1 

REaDO.  1045  IX 

1045  FORMAT  CF12 .5 ) 

»R»ITEt4. 1044) 

1044  *ORNAT(5X. •: nag  RART  *•/' 

R€A0(«. 1045  1Y 
EIOOCJI  •  DCMFLXfX. Y) 

1 04 J  CONTINUE 

NRITEd.  1041  ) 

1041  FORMAT  ( /5x.  •  ••••  ENTER  ALLOKD  3N  4CmICvA*lE  SUB-  •••* 

1*./$X’  •■•••  SFACE  CONSTRAINTS.  t*jS  value  CORRESFONOS  • 


2* 

./sx. 

*0  the  allowable  C'JCLIDEan  DISTANCE  BCT^Cn 

aaaa 

S' 

.✓5x. 

*  •••• 

T*«  DESIRED  EIGENVECTOR  4NQ  t*«  ACHIEVABLE 

•  ••• 

4  ' 

./5x. 

SUBSFACE  CORRCSFONOINO  to  t><  EIGENVALUE  ew- 

•  ••• 

5* 

.  /5x. 

TEREC  ABOVE 

aaaa 

4’ 

.  /  ) 

•EaO<*. 

■  1020  >E. 

CALL  FR^CNS  'CLRSCRn 

c  QF^iMirE 

1  RO  CALL  A03(  :»*0.  I3TRAT  .  IOFT,  |(X0-  1FR  IN’  IGRaD.nOv  NCON  *B- • 

I  VLB.  VUB.COBj  GC  IDOl  NOT  l  C  l  D*  R*  .  mRa  .  nCOLA  .  m*  J  1030  -  I  NR  •  1000  i 
C  EVALUATE  OBJECTIVE  S  CONS-RAIYTS 

L  •  1 

CO  140  J  ■  INI 

DO  140  X  •  INI 

V1K.J)  •  C^LF'XBJfL’  .  XIj'LM  : 

VSAVE ( X • J •  ■  V<K . J I 

w  •  L  •  2 
140  CONTINUE 

Call  lEOT  1C '  VSAVE  Nl-lO-Xl’^C  N.  .3.3  -A  :ER 
00  142  ,  •  [Ml 

DO  t*2  x  •  ;  N1 

142  VDI  (  J.«  I  •  UNITrtf  V  « 

DO  |4«  J  a  1  n; 

DO  1*4  <  •;  mi 

144  UNITVC^J  XI  >  DC**1-  *  '  P*  t  '*  j  «  3  DO 

CALL  CNS-RN.  w:  .  sc  *B,  f  f:  NTXON  a  ■  . :  **■  r  :  ?c  J*l  ’  *  •  *•  ’" 

I  IFU" 

00  .40  ,  •  .  Mi 


00  ISO  X  «  1»N1 

VMU.K1  •  V  ( J  <  K  1 

ISO  VOItU’K)  ■  VOKJ.K) 

CALL  CSVtXVDS.  10. 10.M1 .MI .Q.M1.N1.S1.UV0S. WDS) 
CALL  C*VO(VOIS.iO. t0.Ml.Mt .O.Ml.Nl.SJ.UVDIS.WtHS) 
C0NQ2  *  SKI  )■$£(  I ) 

C  CALL  MOSMIV.Ml 1 

C  CALL  MCAHCVO!  .Ml  ) 

iP(iNPO.ea.aiooTa  tz 

COSJ  •  SN0L(C0M02) 

(WTO  LOO 

. . . . . . . 

c 

*  »:md  • v><sm>. vot>  ••••  *oT6  /ot  »  :mv<v> 


ti  X)  «o  :  •  t.Mt 

•o  doom i.D  •  eioof r ) 

CALL  CMATK.  :eiOOM.VOI  .Ml  -Ml  .M1.CVI  ) 

CALL  CMATML(V.£Vt.MI .mi .Ml .VfVl) 

oo  to  :  •  i -mi 
oo  to  j  •  :  ni 

to  VMAU.JJ  •  VCVld.jJ  -  OCMAL*  (A(t.J).O.DOt 
C  *IM0  5V0  OA  c 

do  zz\  .  •  : -wi 
do  :  i  \  <  •  : .  n  i 

i  •  :  „.*i 

:si  :s( j.k  >  *  cc- ■*  i 

CALL  LSVOP’CS-  .O.Ll .Ml .CUT. lO.Lt , SC . MK4 .  (£A  ) 

CALL  tAMK0«C3. CUT. JC.Li -Nl .COTC. Cite. riMVCC. IBANKC.COI 1 
AAITf  (t.23*  ::»AN»CC 

2IS  *oamat  ( /**.  •  ••••  :  has  Oam*  •  -  .12.'  •••**./) 

ip r iiAMi.ee. mi  ahc.  iiAMtc.CQ.Mi  ioo ro  ::t 

IV  •  Ml  -  liAMK 

CALL  P«D€P  A.f.C.V.VOI .itOOM.SOI -U1TC.C0I .Ml .Ml .Li . It. IPCE0.PC1 
XJTO  ;s# 

22*  CALL  CMAfM.iUOrC. ✓MA.-I -Nl .Ml .JTVC ) 


c 

c  *inc  iMutis«'o:>  s  'eeDtACA  daims 

C 

. . . . . . . . . 

22*  Calc  >:mv2*i»Z.m» • i: .*4 1MV. i -MAACA2. ICi I 
00  to  j  •  l  «I 
30  •*  «  •  ; .M| 

•  *  i2:MvCi-.i)  •  »2:*vr  j.C.ODOl 

CALL  CMAfM.  *r:MvC. JTVC  "l  "I  Ml ,*c > 

C  MODI**  *C  :*  3T*ei  *ma*  *xl  'CCOtACi 

*•  :*etc  C3  ao*c 

;s>  ' all  *c  ::mvcc  «i  . si .  ;i*Mic  *cz 

CALL  CMA-M.'*C2-C0vC  -M|  .  .’iAMlC.wl  *c  ! 

: ti  :*  :*?eo  ec  :  oc*c 

oo  :iz  >  •  i  w; 
do  :i:  ■  •  i  -i 
*C3  * ■ j  •  *C  «  .  ) 

DC  .  «  •  XMP'.i'O'-  «  i  or 

CAli.  CMA'*X  DC  PCwl  Ml.  LI  X*C  i 

do  :si  .  •  . -w . 

oo  ;is  «  •  .  w . 

;i!  xpc:<.  »  •  jni**c  ...*  ■  •  x*cw  «• 

'  iL .  „t3V*  X*r  ,  1  .«MT*vr  ,  I  13  3  Wt  lfl 

'ALk.  rMA’ML'*r.  1  JNJ’vr  «1  i.  1  v.  i  *C 

k  :u  i  •  hi 

oo  :u  «  •  .  m» 

?!4  JNf’vf  ,  «  •  Of"MV  ■  t  DO 


l«< 


*\ao  /ifi  \*  "o mm  r  ■  »tctrt*r» 


! 


► 


R> 


k 

1 


t 


I 


* 

! 

i 


or  220  K  ■  l, U 

TIMAG  a  DXMAG<PC<J.K)) 

IF (DABS (TIMAG ) .GT . 1 .D-04 JGOTO  221 
GOTO  220 

221  X  •  0IMAG(FC( J  *K ) ) 

WRITE (4 *222  JJ.K.X 

222  FORMAT C/5X* *  aaaa  WARNING*  FC ' *  12. • . * . 12 *  * )  HAS  AN  aaaa*,/5x. 

1  *awaa  IMAGINARY  FART  «  *.E!2.5./5X. 

2  *aaaa  EIGENVECTOR  MATRIX  MAY  BE  ILL  CONDITIONED  *■■"*./ 
SI 

C20  CONTINUE 


C 

C  SORT  OUT  REAL  PARTS  OF  F  MATRIX 

C 

. . . . . . . . . . 

DO  132  J  a  1.M1 

DO  152  K  •  1.N1 
152  F(J.XJ  ■  DREAL (FC( J . K 1 ) 

C  MRITEU.100) 

COO  FORMAT(/5X, 'aaaa  F  MATRIX  RESULTS  FROM  KAUTSKY  ALGORITHM  aaaa*./) 

c  do  no  i  ■  i.m 

C  wRITE(4.120)tF(I*J).J.  l.Nl) 

C20  FORMAT(1X.4(E10.J*1X)) 

CIO  CONTINUE 

C  FIND  MINIMUM  SINGULAR  VALUE  IN  FREQUENCY  RANGE  .01  -  100  R/S 

CALL  SVA(A.8*C.0*F. UNITY. Nl . Ml .LI . W.SVM. SVMAX . SVMl , SVMAX1 . IFEEO ) 

XI  «  20.00 

00  230  I  •  1.200 

IF (SVM( I )  .GT .XI 3 GOTO  230 

SMIN  •  SVMCI) 

X2  ■  W( I  ) 

XI  a  SMIN 
230  CONTINUE 

WRITEU.240JSMIN.X2 


240 

forma r</5x. 

'aaaa  MIN  S.V.  OF  RDM  a 

* -EI2.5* ’  »»»»• 

*/5X. 

l 

‘aaaa  FREO.  OF  MIN. 

S.V.  a  • .E12.5 

,*  aaaa* 

./sx 

2 

* ***»  ENTER  -1“  TO 

OPTIMIZE  THE  S. 

V.  aaaa* 

./5X 

5 

•aaaa  ENTER  “2"  TO 

EXIT  KVECT . 

aaaa  • 

./) 

READ! a. 1050 JILOG 
IF(ILOO.EQ.2)GOTO  133 

. . . . aaaaaaa . aaaaaaaaaaaaaaaa 

C 

C  SET  UP  OPT IM I TER  CALL  FOR  MINIMIZING  MULT I- VAR  I ABLE 

C  KALMAN  INEQUALITY  FOR  R  ■  I0ENTITY.  ONLY  BUILD  ONE 

C  DESIGN  VARIABLE  VECTOR  ANO  URPER/LOWER  SOUND  VECTOR 

C  PER  COMPLEX  EIGENVALUE t  PRESENTLY  ONLY  REAL  CASES  ARE  HANDLED 

C 

. . . . . . . . . . 

CALL  FRTCMSt  * CLRSCRN  *) 

WRITE (4*245 ) 

245  FORMAT (/SX.'aaaa  ENTER  NO.  OF  ITERATIONS  DESIRED  FOR  ADS  aaaa*./) 
READ ( a • 1002 1NITER 
CALL  FRTCMS( 'CLRSCRN  ') 

WRITE (4. 244) 

244  FORMAT ( /SX . .  ENTER  MIN.  S.V.  TOLERANCE  FOR  AOS  aaaa*,/) 

READ( » .  1020  JSVTQL 
CALL  FRTCMSt 'CLRSCRN  •) 

INFO  a  0 
ISTRAT  -  1 
I OPT  •  1 
IONEO  •  2 

NCOM  •  Ml 

I GRAB  >  0 
IPRINT  ■  2200 
NOT  •  o 
NR A  a  10 
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ncola  •  10 

MOV  •  2«M1»N1 
tv  •  Ml  -  Ml 
ITER  •  0 

SPECIFY  E 1 GENSTR UCTURE 
NORMALIZE  EIGENVECTOR  MATRIX  FIRST 
Call  normiv.nI) 

00  250  I  •  I  .Ml 
NRITEC6.25S1I 

FORMAT I//5X. '*■••<*  ENTER  no.  of  ELEMENTS  OF  EISENVECTOR  '.IS.1 

l'./SX.  WHICN  ARE  AR81TRARV. 

R£AO<».  lOSOlIELEHU  ) 

CALL  FRTCMSI -CLRSCRN  '1 

00  060  I  *  I.N1 

MR  I TE (6.1001) lELEMf : ) . ( 

REAOC  * . 1002 ) I  IRON  C  J . I ) l . IELEMI I ) ) 

CALL  FRTCMSCCLRORN  •) 

SET  SOUNDS 

HRITE(6.100S> 

REA0(  <• .  1000  )UR 
HRITEC6.100A) 

REAOC a. 1 020 )UC 

CALL  FRTCMSI ‘CLRSCRN  *) 

IFCUR.nE. l.E*06 1GOTO  500 
UR  *  O.IE'21 

IF(UC.NE.1.E*06 )OOTQ  510 
uc  •  0.1E-21 
NRITEC6 . 1010 ) 

WRITEC6.10U  1 
REA0(«. 10201EPSR 
WRITEC6. 10121 
READ! «. 1020 1EFSC 
CALL  FRTCMSI 'CLRSCRN  ■) 

NRITEC6 . 516 1UR • UC.EPSR .EPSC 

FORMAT I /sx. -UR  •  ' .E12.5./5X, 'UC  .  ' .E12.S./SX. -EPSR  •  -.£12.5. 
1  /SX.-EPSC  ■  ' .E12.5) 

J  •  1 

00  550  II  «  t.Nl 
00  550  JJ  •  t.Nl 
00  520  KK  •  l.IELEMCtn 
IFIJJ.EO.  IROWCKX.  II  1 1O0T0  525 
CONTINUE 

GOTO  540 
VU8(J)  >  UR 

VUS(JmI)  «  UC 
VLS(J)  »  -UR 
VLStJM  I  *  -UC 
J  •  -  ♦  2 
OOTO  550 

X  •  0RE*L(V( JJ. II 1 ) 

V  •  OIMAQCVC JJ .III) 

VUS(J)  •  SNOL(X)  •  EPSR 
VUSIJMJ  •  SNGL(V)  •  EPSC 
VLS(J)  .  SNOL(X)  -  EPSR 
VLBU-ll  •  SNOL(V)  -  EPSC 
J  •  J  ♦  2 
CONTINUE 

DEFINE  CONSTRAINTS  AS  LINEAR  INEQUALITY 
DO  555  I  •  l.NCON 
tOOl (II  •  2 

SET  SOUNDS  ON  CONSTRAINTS 
MR  I TE( 4. 1041 1 
READ(r.1020)E1 
CALL  FRTCMSI -CLRSCRN  •) 

FILL  -  UP  OESION  VARIABLE  VECTOR 
JJ  •  1 

DO  545  K  .  i.Ml 
00  545  XX  •  1.N1 
X  •  OREALtV(XX.II)) 
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Bf 


I 


s«s 

c 


54  7 
34  6 

C 

349 


352 

250 

C 


355 


S«« 

C 

c 

133 


V  •  DJMAOfVfKK. II)  ) 

XBJ(JJ)  ■  SNGL(X) 

XBJ(JJ*1)  ■  SNQL(V) 

JJ  •  JJ  ♦  2 
OEBUO  WRITE 

IF(  INFO. N£ . 0 )Q0TQ  344 
WRITE(6.S<6) 

FORMAT (/5X. ••***  ENTERING  ADS  WITH  THE  FOLLOWING  ■■■••./) 

DO  346  I  ■  l.NDV 

MRITE(6.347)VL3CI).X8J(n.VUBCI) 

FORMAT(10X.3<CI2.S.3Xi) 

CONTINUE 

OPTIMIZE 

CALL  a03( info. ISTRaT. ;opt, IONED. IPRINT. IGRAO.NDV.NCON.XBJ. 

1  VL8.VU8.C0BJ.QC. 1001 .NOT . IC1 ♦ DF.RA.NRA.NCOLA.WK3.3000. IWK. 1000 ) 
EVALUATE  OBJECTIVE  FUNCTION  AND  CONSTRAINTS 
ITER  a  ITER  ♦  l 
JJ  a  1 
ICQNJ  a  0 
00  250  I  •  I .Ml 
DO  350  J  •  1.N1 

VCJ.X)  a  CMPlX(XBJ(JJ).X8JCJJ*1 ) ) 

JJ  ■  JJ  *  2 

NORMALISE  EI3ENVECT0R  MATRIX 
CALL  NORMCV.Nl) 

DO  351  I  •  1 • N 1 
□0  351  J  •  1.N1 
VSAVE(I.j)  a  VCI.J) 

CALL  LEQTlCfVSAVE.Nl. 10. UNITVC.NI . 10.0.WA. 1ER  J 
CALL  CMATMLCEIODM.UNlTYC.Nl.Nl.Nl.eVl ) 

CALL  CMATMLIV.EVI.N1.N1.NI.VEVU 
DO  355  I  •  1.N1 

00  355  J  ■  1 .Ml 

V01C1.J)  •  UMITYCtt.J) 

UNITYC(l.J)  •  DCMFLX ( UN I TV ( I • J  ) «  0 • DO  ) 

VMA(I.J)  a— DCMFLX  ( A(  I .  J  I  .  0 . 00  )  ♦  VEVHI.Jl 
CALL  CMATMLCU0TC.VMA.M1.N1.N1.UTVC) 

CALL  CMATML(R2INVC.UTVC.M1.MI ,N1 .FC) 

TITLE  •  *€V' 

CALL  CWRITEfV.Nl. Ml. TITLE) 

CALL  CWRJTECVOI.Nl.Nl. TITLE) 

00  360  I  a  1 .Ml 

DO  360  J  a  1.N1 

Flt.JI  •  DREALfFCCI.JJ) 

CALL  cnstrncni .GC • X8J • C  »E1 • NOCON. A. 8. U1TC • E 100 . UNITY . I Y . UNI T VC . 
1  IFLT) 

CALL  SVAfA.B.C-F. UNITV.N1 .Ml .LI • W . 5 VM . SVMAX . SVM l .SVMAX1 ) 

XI  a  29.00 

DO  365  I  a  1.200 

IF ( SVM ( I ) - QT . X 1 l GO TO  365 

SM1N  a  SVMt I ) 

X2  a  MCI) 

XI  a  SMIN 
CONTINUE 

COBJ  a  SNOL(SMIN)  -  1 .0 
CALL  frtcms ( *  CLR3CRN  *) 

WR  t  TE  ( 6 . 3  7  0  )  COB  J  .SM!N.x:.0CU).QC(2).0C(S).0C(4) 

FORMAT ( /5X. * aaa a  OBJ  ■  '.C1S.S.'  /J*. 

1  .  MJN  S . V .  a  ‘ .E12 .5 • '  AT  FREQ  a  ■ .fl2 . § . /§*. 

2  a«a«  CONSTRAINT  I  a  1  . €  1 2 . 5 . /$* .  1 ••••  CONSTRAINT  2  a 

. .  CONSTRAINT  3  a  • . E 1 2 . 5 . /5x . 1 a«.«  constraint  «  . 

4.C12.S./  ) 

IFC INFO. CO. 0. OR. ABSCCOBJ ) . LT . SNOL ( SV^OL ) )OOTO  6 l 
IF (1  TER .OT. NITER )OOTO  fl 
GOTO  344 

WRITf  RESULTS  OF  KVfCT  FOR  FURTHER  USE  IN  RfCOHF IOUR AT  JON 
STUDIES. 

DO  400  t  a  1 .Ml 

NRlTft 4.4011 1 V( I .J).Ja|  .NJ  > 
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<y/.AAV.A, 


401  P0RMATdX*4E12.5*/lX.4E12.5) 

400  CONTINUE 

00  410  I  •  1.N1 

410  MtITE(9'401)<EtOOM(l.J).J«l.Ml) 

00  415  I  •  1.H1 

4 IS  Mft|TC( 9.401 )  (RZC( I »J) ♦ J*1 »N1 I 

00  420  I  >  UNI 

420  MUTE(9.401  )(U0C(UJ).JaUNl) 

00  4J0  X  •  I.N2 

450  MtlTC(9'40l)CFC<t'JUJ«UMll 
00  455  I  -  l.Mt 

455  UR|Te(9.40n(F(UJ).J«UNH 
RETURN 
EnO 

. . . . * . . . . . 

c 

C  SUWCUTINE  CNSTXn*  CONFUTES  linear.  INEQUALITY  constraints 

c  for  optimizing  the  2-norm  condition  no. 

C  OF  THE  DESIGN  EIGENVECTOR  MATRIX  anD/OR 

C  MINIMIZING  the  nulTI-VARIAOLE  KALMAN 

C  INEQUALITY  RELATION. 

c 

. . . . . . . . 

SUBROUTINE  CNSTRNINUO.X.E.EI  .NOCON.A.t.UlTC.EIOD.UNITV. 

I  IV.UNITYC. IFLTJ 

IMPLICIT  REAL-O(A-M.P-Z) 

REAL"0  41  &0<  10U8I10*  tOJ.UNITYl  10. 10) 

COMPLEX"  14  UNITvct  10.10UU1TCU0. 10).EIGO(10).MMIUO.  10). 

I  RNdO.lOUMVl  (10).uv2(101.Zl 
COMPLEX VX(200) 

REM_»4  G(20>*XdOO).E*EUE2 

INTEGER  N 1 .nOCON. (V. 1PLT( 10 ) .MQV. INOCX 

MOV  •  2"Nl "Ml 

C  J  •  l 

C  DO  5  I  •  U NOV- 1.2 

C  VX  (  J  )  •  CMPLX ( X  C I ) . X ( I • l  )  ) 

C  J  •  J  •  1 

C  1PIN! .EQ.; 1G0T0  .0 

C  IP(Nt.EQ.S)OOTO  20 

C  IP(Nl .EQ.4 1GOTO  50 

C  IP(M1 .10.5 )OOTO  1000 

C  IFCNl .EQ.4 IOOTO  1000 

C  IP(N1 .EO. 7  IOOTO  1000 

c  ifcni  to  o jooro  iooo 

. . . . . . . 

c 

C  ORTHOGONAL  I Tv  CONSTRAINTS 

c 

. . . . . . - . . . . . . . 

CO  0(1)  •  CaOSC  VXiI  )*VKt  s  I  •  VX(2)"VX(4)I  -f 
c  GOTO  1000 

CO  OC I  )  «  CAOSC VXC 1  I  »VX(4  )  •  VX(?l"VX(Sl  •  VX( J >«VX( ft >  )-  c 

C  0(2)  •  CAiS(VX(  1  l*VXi  7  ]  •  V*(1)"VX(0>  .  V*(  l  >"VX(9  )  I-  e 

C  0(5)  ■  CAtS( VX(4 l»VX( 7 )  *  VX(§)«VX(R>  •  VX( ft )"VX I • ) I-  E 

C  GOTO  1000 

CO  0(1)  •  CaBS( VX (  I  )  "VX ( §  1  *  YX ( 2  I "VX ( 4  I  *  VX(|  «VX(7l  *  VM(4)«VX(R) 

Cl  )  -  E 

C  0(2)  •  CaRS  c  vxi  i  )»vx  (  f  )  *  vxc  2  )"v«<  10  >  •  vx(j)*v»(U*  • 

Cl  vx ( 4 )"vxr ij j i  -  c 

C  0(5)  •  CABS( VXC 1  )«VX( u  )  .  VN(2 1«V*( 14 1  •  VX(|)*VR(|9)  * 

Cl  vx(« i • vx ( ; ft  m  -  ( 

C  0(4)  ■  CAtS(  VX  t%  l«VK<  •  l  •  VK'ftl«yK<lOl  •  VX(7»»YXM1(  * 

c  1  vxft j»vx( ir  n  -  r 

C  0(5)  ■  CARS ( vx ( ! } «vx  fit)  .  VX  f  ft  I *yx ( 1 4  I  *  VX<7>»VX(l9>  * 

Cl  VX(t )»VX( 1ft 1 )  -  c 

C  0(4  )  •  CaRS ( vx (  ft  ) ■  vx (|S)  •  vxt to  )*vxr it >  *  vxi  1 1  »*vxr ’.*  •  • 

C  1  vxu  J  j»vxi  i«  1 1  -  f 

C  . . . . ••••••• . . 

c 

I6Y 


C  ALLOWABLE  SUB3PAC1  CONSTRAINTS 

C 

. . . . . 

1000  LL  •  1 

KK  •  1 

00  51  I  •  l.NI 
21  •  CIOOU) 

DO  52  J  ■  1.N1 
00  K  a  I.N1 

32  HHKJtK)  *  0CMPLX(A(J,K).0.O0)  -  21  »UNJTYC(  J  ,K  ) 

CALL  CMATML(UITC.WHI,IY.N1 .Ml.ftN) 

JJ  •  1 

INOEX  *  I  *  Ml  «  2 

30  35  uL  -  KK.  IMOEX-I  .  2 

WVKJJl  •  CMPLX(X(LL).X(LL*l ) ) 

JJ  *  JJ  ♦  l 
35  CONTINUE 

KK  a  INDEX  ♦  1 

CALL  CNATMLCRN.WV1.XY.N1.1.WV2) 

VI  a  0.00 
00  34  II  a  l « I Y 
34  VI  ■  VI  *  CDASS(WV2(!in 

OIIJ  a  SNOL(Vl)  -  Cl 

31  CONTINUE 

RETURN 

END 

. . . . . . . . . . . . a 

C 

C  SUBROUTINE  CCnTRLj  DETERMINES  CONTROLLABILITY  of  complex 

c  a- loop  eigenvalues 

c 

. . . . . . . . . . . . . 

SUBROUTINE  CCNTRLtA.i.UNlTYC.Nl .MI , ICTR.CIO. II > 

IMPLICIT  REAL»0(A-H,P-Z) 

REAL'S  SUO).A(iO.  lO).B(IO.iO) 

CONPLEXaU  UNITVCC  10*  10  )  .WMCl (  10. 10  }  .NMC2  CIO*  1 0  )  • MMCS  (10*10)* 
lEIOUOJ.NMCAdO.  10).  MHC5(20.20  1.21 .22.23.  UUO.  10).  V(1 0.10) 
INTCOCR  Ml. Ml.  tCTRd01.il 
21  ■  110(11) 

00  10  J  a  1.N1 

10  MMCKJ.J)  a  ZlauNITVC(J.J) 

DO  20  J  a  l.NI 
DO  20  K  a  l.NI 

NNC2(J.K)  a  WMCl(J.K)  -  OCNRLXtA(j.K).O.DO) 

2C  MMCJfj.Kl  •  UNlTVCCj.K) 

C  CALCULATE  SLAMOHA  ( I ) 

DO  10  j  a  |.Nl 
DO  10  <  •  |.H| 

JO  *MCSl V.K 1  a  MHC2 (  J  .K ? 

OO  40  J  a  l.NI 
00  40  K  •  1 .Ml 

*0  NMCS ( J • K*N1 )  •  0CMPLX(t( J.K  )  .0.00 ) 

C  CALCULATE  RANK  OF  SLAMOHA 

II  a  Ml*  Nl 

CALw  CSVO  CNNC5 •  10. 10-Nl . II .0.N1 . II .S.U.V) 

IRCSCNl ) ,Lf. 0 .00 IOOTO  50 
ICTR( dial 
00*0  1000 

50  tCRi  II  1  a  o 

1000  acrjAN 

END 

. . . . . . . . . 

c 

c  Subroutine  CMRHt  N*irt*  out  *  complex  matrix  pop 

C  ISM  12  f*  ’■fRMINAL 

C  A  a  InPu*  COMFlC*  MATRIX 

C  IRAaROMS  OP  A  .  ;RC*COLuMHS  OP  A 


V 


C  SUBROUTINE  CMUTCCA.IKA.ICA. TITLE) 

C  IMPLICIT  RCAL-BCA-H.P-Z) 

C  COHPLEX-U  AC  10 . 10  ) 

C  IMTEOE*  IfU.ICA 

C  CHARACTER-BO  TITLE 

C  HRfTC(t.S) 

C  . . . 

C  t*ITE(*.4 JTITLE 

C  F0RMATC/.1A4 1 

C  DO  10  J  •  l.IRA 

C  WRlTC(i,201(A(J«K)*K  ■  l.ICA) 

CO  FORMAT  (8  (E8.  1.1X1) 

CO  CONTINUE 

C  -R1TEU.5) 

c  return 

C  £N0 

. . . . . . . . 

c 

C  SUBROUTINE  CONOi  FINDS  2  -  NORM  CONDITION  NUMBER  OF 

C  A  SQUARE  COMPLEX  MATRIX 

C 

. . . 

SUBROUTINE  C0nDCZ.n1 .XCOND) 

IMPLICIT  REAL-8 CA-H. P-21 

COMPLEX- U  2ClO.iO).UZU0.l01.V2(I0. 10KUNITVCC10. 10 ) *ZSAVE( 10* 10 > 
l.UXZClO.lOJ.VXZdO.IOJ.ZI 
REAL-8  SICIQI.SCUOJ.MACIOI 
INTEGER  ni 

C  INITIALIZE  matrices 

DO  S  I  -  l  •  10 
SICIU  0.00 
$2(!)  -  0.00 
WA(I)  ■  0.00 
00  5  J  •  1.10 
Z1  ■  (0.00.0.00) 

uza.ji  »  zi 

VZ(I.J)  •  Zl 
UHlTVCa.Jl  »  21 
ZSAVE(I.J)  •  21 
UIZd.Jl  »  21 
V1ZCI.J)  •  21 
5  CONTINUE 

00  10  I  •  1.N1 

UNITVCCI.X)  »  DCMPLX (1.00.0.00) 

00  10  J  ■  1.N1 
zsave ( t •  j i  •  zd.j) 

10  CONTINUE 

CALL  CSVOCZSAVE • 1 0 . 1 0 .Ml . Nl . 0 . Nl . Nl . Cl . U2 • vz ) 

XCONO  «  SKD/Sl'Nl) 

return 

ENO 

C— —  —  —  —  —  —  —  — . . . . . . 

c 

C  SUBROUTINE  NORM*  NORMALIZES  THE  COLUMNS  OP  a  COMPLEX  MATRIX 

C  SUCH  THAT  ||X  til  «  1.0 

c 

. . . . —  —  —  —  —  —  —  —  —  —  —  —  —  —  ——  —  —  —  —  —  —  —  — . —  —  — 

SUBROUTINE  NORM ( A . IN ) 

IMPLICIT  REAL-B(A-M.P-Z) 

COMPLEX-U  AC  10.  10  ) 

INTEGER  IN 
00  10  J  ■  t.m 
X  •  0.00 
00  20  1  •  1  *  IN 

20  X  ■  X  *  0REAL  ( AC  I  •  J) )— 2  -  OlMAGCAd  .J))--2 
DO  10  I  •  1.IN 

10  A(t.J)  •  AC  I . J 1/0SORT (X ) 

RETURN 

END 
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SUBROUTINE  RESULT.  WlTfS  El GENS  RESULTS  ON  RILE  Of 


SUBROUTINE  RE3ULT(A.B.C.F.F0EL.80EL.Z4.2S.L1.M1.N1  ) 

IMPLICIT  REAL'S  (A-H. P-2) 

REAL'S  A(10*1Q).8(10»10).C(1Q»10)>F(10.10)» FUEL (10.10)* BOEL CIO* 10) 
COMPLEX' 14  24C10.10).2S(10).FCC10. 10) 

INTEGER  LI- Ml. Nl 
NRITE(S.900)Ll.Ml.Nl 
00  10  I  •  l .Nl 

NR1TE(8. 10001 (A(t.w). J«1 «Nl ) 

00  CO  t  1  L.Nl 

NRITECS. 1000)(BCX.J).J»l.HI ) 

00  JO  I  •  1 *L1 

URITECS. i 000 ) ( C ( I . J ) . J ■ 1 . Nl ) 

DO  40  I  -  2. Ml 

NRXTCIB* 1000) (PCX  *J ) *J«l >Ll ) 

DO  50  t  ■  l.Nl 

WRITE(8.1100)(Z4(I.J).J»1.N1 ) 

00  40  I  -  l.Nl 

WRITE  (8. 1000)25(1) 

DO  U  I  •  l.Nl 

WRITE (8» 1000) (FDELC I»J).J*l»Nl ) 

DO  42  l  •  l»Nl 

NR X TECS* l 000) (BOEL (I *u)#J»l »Ml ) 

FORMAT (312) 

FORMAT ( IX. oE 12. 5  ) 

FORMAT  (1X.o£12.5./1X.6E12.S) 


SUBROUTINE  RANKDr  ANALYZES  REQUIRED  STRUCTURE  OF  RANK  DEFICIENT 
MATRICES 


SUBROUTINE  RANKDCBS.UT.S.N.M.UOTC.UITC.RZINVC. I RANK .8G1) 

IMPLICIT  REAL'S CA-M.P- 2) 

REAL'S  8S(10.10)*S(10)»SM(10. 10). RZ (10. 10). RZINVC10. 10). 

I  U<10.10)*UT(10.10)»VT(10.10).SI ( 10) .MR (SO ) .SMI ( 10. 10 ) .MAREAC200 ) 
2*  BO  1(10*10).  COKIO.  10 )  »BSM(  10.10) 

COMPLEX' 14  R2INVC(10. 10 ) . UOTCC 10* 10 ) . UlTCC 10 . 10 ) 

INTEGER  N.M.IRANK 
I RANK  •  M 

DO  1  I  ■  1.10 
00  l  J  ■  l.io 
8GKX.J)  '  0.00 
RZ(I.J)  ■  0.00 
RZINV(X.J)  >0.00 
UOTCCI.J)  •  (0.00.0. DO) 

UlTCC I . J )  ■  (0. DO. 0.00) 

R2INVC( I . J )  ■  (0.00.0.00) 

U(I.J)  ■  0.00 
VT(I.j)  -  0.00 

DO  2  I  •  1.50 

mm  •  o.oo 

oo  J  i  ■  i.m 
IF(S(I ).OT.O.DO)OOTO  S 
IRANK  ■  1-1 
GOTO  4 
CONTINUE 
00  JO  I  •  l.N 

00  SO  J  ■  l.N 
SM(I.J)  •  0.00 

ud.ji  «  uTw.n 

00  40  I  •  l.N 
00  40  J  •  1. IRANK 


40  UOTCU.n  «  DCHPLX(U<I.J).0.DO) 

DO  SO  t  •  l»N 

DO  SO  J  ■  {RANK  ♦  !»N 

SO  UITCCJ-IRANK.X)  •  DCMPLXCU(I.J).O.DO) 

C  DO  40  I  •  l»M 

00  40  1  •  l 4 IRANK 
DO  40  J  •  l.M 
40  VT(X.J)  •  BS(J.I) 

C  MRITE(4. 1000 ) 

COOO  F0RMAT(/5X.*U  MATRIX* ./> 

C  00  1020  I  •  l.M 

C020  URITC(*.IQ5Q)(UU.J).J*1.M) 

COSO  FORHaT( 1X.*(E12.5. IX) ) 

C  MRITE14. 1040) 

C040  FORMAT ( /5X 3  MATRIX*./) 

C  00  1050  X  •  I.N 
COSO  UAITEU.IOSO)  SCI) 

C  WA ITE ( 4 . 1040 ) 

COSO  FORMAT! /5X. *V  MATRIX* ./) 

C  00  1070  I  •  l.M 

C070  MRlTE(*.10SQ)(BS(X.J).J>l.M) 

DO  70  X  •  1. I RANK 
70  SM( I » ( )  -  SCX) 

CALL  VMULFFCSM.VT.IRANK.M.M, 10. 10.R2. 10. ICR ) 

C  WRITEC6.2000 ) 

COOO  FORMAT (/SX.’AZ  MATRIX* ./) 

C  DO  2010  I  »  1 • I Rank 

C010  MR I  TEC  6 .  1030 ) (RZ( I .J ) . J«1 . M) 

C  TOL  •  0.00 

C  CALL  LOINFCRZ.IO.IRANK.M.TOL.R2INV.10.SI.WK.IER) 

C  MRITEU.SOOO) 

COOO  FORMAT C /5X . * SIGMA  MATRIX  PRIOR  TO  INVERSION  •»•«'./) 

C  WRITE(4.J030)((3N(I.J).j«l. I RANK ) . I • 1 . I RANK ) 

C  CALL  HNV2FCSM.  IRANK.  10. SMI. O.WAAEA.IER) 

00  S001  I  •  l.IRANK 
3001  SMI  (  X .  I  )  •  1.00/SM(l.n 
C  WRITE! 4.4000 1 

COOO  FORMAT  l  /SX.  *  SIGMA  MATRIX  INVERTED  «•■»*./) 

C  WRITEI4 . 3030 ) ( (SMI ( I » J ) . J«1 • I RANK ).!■!. I RANK ) 

COSO  FORMAT (1X>3(E12.S.1X)) 

CALL  VHULFFISS.SMI.M. IRANK . IRANK . 10 . 10 .R2INV . 10. IERI 
DO  80  I  -  l.M 
00  80  J  •  l.IRANK 

80  R2INVC(I.J)  •  DCMPLX(P7INV(I.J1.0.D0> 

CALL  VMVILFF  (BS.  SMI  .M.  1RANK.IRANK.  10.10. 8SM.  10.  IER) 

CALL  VMULFFtBSM.UT.M. IRANK .N, 1 0 . 1 0 . BOI . 1 0 . I£R ) 

RETURN 

END 

. . . . . . . . . . MUM 

c 

C  SUBROUTINE  FEEDER*  CALCULATES  feeoback  gains  for  rank  deficient 

C  B  AND/OR  C  MATRICES  VIA  FLETCHER.  ET.AL. 

C  1  TBS 

. . . . . . . . 

SUBROUTINE  FEEDER ( A. B.c.v. VOX .EI00M. 801 .U1TC.C0I .N.M.L. IV. IFEEO.FC 

1 ) 

IMPLICIT  REAL*B(A-H.P-2) 

REAL«8  A(10.10).B( 10. 10).C( 10. 10). BOX (10. 10). CMC  10. 10). 

X  COX (10. 10 ) .CSOS! 10 ) . T0TBS( lO).SBtlO).SC(lO)  .WK(200  ) . 

2  CTUO.  10J.CTWU0. 10).CTUT(10. 10).SCT(10).CTOIUO.  10J.WKK200  )  • 

3  HA ( 1 0 ) . COB J . COB JR . COB JL . HE I GHL . WE I GHR , WORK ( 2  0 ) 

COMPLEX* 14  ACC10.10) .BC( 10. 10J.CC ( 10 . 10 1 • V( 10. 10 ) .FC( 1 0 . 10 ) • 

1  OQnO.lOl.SOUO.lOl.OONUO.lOl.TOTdO.lOI.rOTAnO.lOJ.OQTClO.lO). 

2  U0(10.10).ACS(10. 10).S0D(10. 101.BV0! 10.10).BIC(10. 10).C1CC10. 10). 

S  CS0C10. 10).T0TB(10. 10J.CSUU0. 10).CSV( 10 . 10  I .T0T8UC 1 0 . 1 0  ) . 

4  TOTBVC 10. 10 1 »CSQSC( 10*10). TQTBSCC 10.10) .CSUT (10«10) .TOTBUTt 10.10) 

5  >C3VC( 10.10) . CSO I (10*10) . T0T8SSC 10. 10 ) . TOTBI (lO.lOl.WMl(lO.lO). 

4  WN2(10.10).WM3(10.10).WM4(10.10).WMS(10.10).WM4(10.10).WM7(10.10) 

7 .HM8( 10. 10 ) .HM8( 10* 10).WM10(10. 10 1 .WM1 1(10.10). WM12C10. 10). 
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•  wujuo.iO).wMU(io.io>.z.exaomio.  lOJ.Ktao.  ioj.cccuq.  io). 

*  TOU0.10).VDI<10.10).BCMPC10.10).CCMP(10.1Q).CCSS(10.10> 

COMPLEX" U  CSOMP( 10 • 10)»MM15(10.10) .TTB8C 1 0*10 ) .TOTMP (10.10). 

1  MMlftOO* 10 1 *MH17(10. 10) .MH18C 10* 10 ) . WH20 ( 10.10) *  WH21 (10.10). 

2  MM22( 10* 10 ) . U1TC( 10 . 10 1 .CTITCt 10. 10 ) .CT0TC< 10 . 1 0 ) .ZIMCTCC 10. 10  ) . 
S  AML ( 10 . 1 0 ) . ATML ( 1 0  » 1 0 ) . RN ( 1 0 . 1 0 . 1 0 ) . LN( 1 0 . 1 0 » 1 0 ) • T ( 1 0 . 1 0 ) . 

4  VW ( 1 0 . 1 0  )  . WH2 S (  1 0 . 1 0  )  . WM2 4 ( 1 Q  •  1 0  )  •  WVR (  10 )  .WVLUO  )  .CSC  10. 10  ) . 

5  NMHUO.  lO).NHL(lO.lO).ftOOJClO)  .LOBJUOJ.UNITYCCIO.  10). 
ft  UOTUO.  10).  V0(  10. 10).  FCTUO.  10).  FCS(  10. 10).  80*0(10. 10). 

7  8CPCC(lO.lO).CLM«10.l0).eVACUa0).EV6CT(10.i0)WI(10.10). 

8  VEUO.m.VEVUO.lOJ.VHAdO.  10).BVU0.10).FCG(10. 10). UIC(IO.IO) 
REAL**  08J.X(50).VU8t50).VU8(50)  ,SA(20.40  1.6(1  ) .  DEC  CO  )  .S4KZC4000  ) 
INTEGER  N.M.L. IFEED. IQ. IN. IRANCT. IY. INK (1000). INFO. ;0G( 1 ) . ICC  1 0 ) 
NR ITS (ft* 10  ) 

FORMAT (/5X »'****  PRESENTLY  IN  FEEDEF.  SINCE  RANKCC)  <;  N.  ENTER**** 

1‘./5X.  *****  DESIRED  DIMENSION  OF  R.H.  EIGENVECTOR  SET  FOR*** 

2*./5X.  ,*««*  SPLIT  EIGENSTRUCTURE  COMPUTATION. 

3’  ./) 

REAOC*. 18)10 
FORMAT (1 1 ) 

CALL  FRTCMS ( ' CLRSCRN  •) 

IN  ■  N  -  IQ 
INIT  MATRICES 
DO  11  I  •  1.10 
CSOS(I)  ■  O.DO 

rorssci)  ■  o.do 

SCTCI)  a  O.DO 
WA(1)  •  0.00 
MVR ( I  }  -  C  0 . DO . 0 . 00 ) 

WVLCI)  •  (O.DO. O.DO) 

ROBJ(I)  ■  0.00 
LO0JU7  »  O.DO 
00  11  J  ■  1.10 
Z  «  (0.00. O.DO) 

ACCX.J)  •  Z 
BCU.J)  •  Z 
CCCI.J)  -  z 
CW(I.J)  •  0.00 
CT(I.J)  ■  0.00 
CTMCI.JJ  .0.00 
CTUTCI.Jl  •  O.DO 
TCI  * J)  .  Z 
VW(I.J)  •  z 
MM2SCI.JJ  ■  Z 
MMZ6U.J)  •  Z 
NMR ( I • J )  •  Z 
NML(I.J)  •  Z 
OQ(I.J)  .  Z 
SO(I.J)  *  z 
DQNII.J)  >  Z 
TOT ( I . J  )  ■  Z 
TOTACJ.J)  *Z 
DQT(l.J)  *  Z 
UO  ( I .  J )  ■  Z 
ACS(I.J)  •  Z 
SOD(I.J)  ■  Z 
BVO(I.J)  .  Z 
•IC(I.J)  .  z 
UOT(I.J)  .  Z 

voci.j)  .  z 
CIC(l.J)  •  z 
C50CI.JI  -  z 
TOTtd.J)  *Z 

csuu.ji  •  z 

CSV(I.J)  ■  z 
TOTBU(I.J)  *Z 
TOTfV(t.J)  *Z 
CSOSC(I.J)  *z 
TOTBSC(I.J)  •  Z 


CSUT(I.J)  •  Z 
TOTBIITCI.JI  ■  Z 
CSVCCl.J)  •  Z 
UNXTVCCI.J)  »  (0 .00*0.00  ) 

CONTINUE 

BUILD  CONST AMTS 

:npo  -  o 

WCIOHR  a  1.00 

weigh.  *  i . oo 

00  12  1  •  l.M 
ONITVCU.D  «  Cl. 00.0. DO] 

30  12  J  a  l.M 
Tft.J)  -  VDKJ.I1 
■iCCI.o)  »  3C*PLX(A<  I .  j  J.G.30  J 
;o  !  i  l.n 
30  13  j  *  l.M 

tCCI.J)  *  3CMPLX<BC I. J). 0.30) 

30  It  t  •  l.L 
00  14  J  a  l.N 
CM(I.J)  -  C(I.J) 

ccci.jj  ■  ocMPLxcca.ji.o.oo) 

CHECK  IP  lEPT  EIGENVECTORS  Aft E  HEHBERS  OP  MCCi"aTa(A-LAMaI ) ) 
PINO  SVO  OP  C"*T 
00  200  I  »  l .U 
30  090  J  s  l.N 
CT'jT(j.j)  .  i.oo 
CTW(J. n  a  C( I . w ) 

CT(J.I)  •  CII.J1 

CALL  w3VDP;CTM.10.N,L.CTUT.I0.N.SCT.^KI. IE*) 

CALL  ^AMKOtCTW.CTUT.SCT.N.L.CTOTC.CTlTC.ZlNC^C- IRanC* . C"3! ) 


BUILD  NULL  SPACE  OPERATORS  *0ft  9  AND  C««T 


DO 

210  I  - 

.N 

DO 

205  J  a 

30 

295  <  » 

.  N 

AML(w.K)  a  ACIJ.K)  -  E I  SOM ( I , I  ) ■ UN  I TVC ( J . A  ) 
ATNl_(J,<)  •  AC !  K  .  j'.  •  SlGOHt  I  .  I  •UNiTVCt  „  .  O 
CALL  CMAT^.  giTC.AHL. Iv.n.n.mm:: ] 

CALL  CMATHL.CTlTC.ATML.^IRANCT.N.N.-a.t*] 

DO  09a  >  l . jv 

DO  004  <K  ■  l.N 
UlCtXK.jj)  •  UITC(jj.kk) 

RN<  t.JJ.KK)  m  NHC : < J J . KK ) 

do  :or  «  i-**-:ranct 

30  ZO?  <K  *  l.N 

LNfI.Jj.«j  .  _ 

Continue 

ctN0  3SlEC~ I VE  rUNC*I3N 


COB J  •  3.30 

C0iJ»  ■  3-30 
COB  JL  •  0  .  DO 
ICONjO  •  9 
DO  329  I  a  j .H 

ipf  ico*jo. eo .  i  »ooto  :ia 
do  ::s  <  •  ;  -n 

>  ■  OlNAOtElSOHl  s . s  M 
IPfv  Co  3 . DO  ’50*3  :o* 
ip'x.nc  Nioc'a 

1CCN.0  .  i 
NVR  f«  )  •  V (  K  .  I  ) 

*VL  (XI  •  t  K  .  I 

Do  jj  •  * .  iv 
DC  AX  %  l.N 

Jw.*«  '  •  *N  J. 

DC  Cl’  jj  •  ;  •*-  \  %  amc  * 
DO  C2T  (K  i  |  k 


I" 


00  240  KK  »  1 . N 
IF! ICONJQ.EQ. 1 JGOTO  242 
00  240  LL  •  1 • N 
RX  •  MOl  (VCLL.KK)) 

CX  •  OIMAOCVCLL-KX)) 

V  ■  DIMAO  (EIOOHCKK.KKn 
IFCV.EQ.O. DO JGOTO  290 
291  IFCLL.NE.NJGOTO  290 
242  NOV  »  NOV  -  2«n 
I CON JO  -  1 
290  XCJJ)  -  SNQL(RX) 

XCJJM)  *  SNGL(CX) 

VU8CJJ)  *  XCJJ)  *  5R 
VLSCJj)  »  XCJJ)  -  3R 
IPCCX.NE. 0.00 JGOTO  294 
VU»(JJ*IJ  •  0.0 
VL8CJJM)  «  0.0 
OOTQ  295 

294  VUBCJJM)  »  XCJJ*H  *  S! 

VLBC  JJ* l )  •  XCJJ^ll  -  91 

295  ICCJJ1  ■  0 

1CCJJ*1)  ■  0 

DF(JJ)  «  0. 

OFCJJ+l )  ■  0. 

GOTO  245 

242  ICONJO  ■  0 

GOTO  240 

245  JJ  •  JJ  ♦  2 

240  CONTINUE 

241  CALL  AOS( INFO. ISTRAT.IOFT.rONCO.IFRlNT.rQRAO. MOV. NCONX. VLB. VU9. 

1  OBJ. 0. IDG. NOT. IC. OF. RA.NRA.NCOLA.WK2. 4000. INK. 1000 > 

C  EVALUATE  OBJECTIVE  FUNCTION 

JJ  •  1 
ICONJO  •  0 
DO  245  KK  ■  l.N 
IFCICONJG.EO.l JGOTO  243 
DO  245  LL  •  l.N 

IF IDIMAOlEIODmxX  .Kim  .EQ.O.DO 10070  244 

270  IF (LL.NE.N JGOTO  244 

271  ICONJO  *  1 

244  VCLL.KK)  •  CMPLXCXC JJ ) . X( JJ*l ) ) 

VN(LL.KK)  •  VCLL.KK) 

GOTO  249 

243  00  244  LLL  •  l.N 

VCLLL.KK)  •  OCONJGC VCLLL.KK- 1 ) ) 

244  VWCLLL.KK)  •  VCLLL.KK) 

ICONJO  ■  0 
GOTO  245 

248  JJ  ■  JJ  ♦  2 

245  CONTINUE 

CALL  LEQTICCVW.N.IO.UNITVC.N.IO.O.HA. IER ) 

DO  247  KK  ■  l.N 

DO  247  LL  ■  l.N 
247  T(LL.KK)  ■  UNITVCCKK.LL) 

00  250  KK  ■  l.N 
DO  250  LL  •  l.N 

2*0  UNITYCCKK.LL)  ■  CO. 00,0. DO) 

00  252  KK  •  l.N 

252  UN1TVCCKK.KK)  -  C 1 . DO . 0 . DO ) 

IF  t INFO. EO . 0 )OOTO  14 
GOTO  208 

C  BUILD  SO  AND  TOT . DO  AND  DON 

14  I TC ( 4 . 25  t )COBJA . COBJL 


251  FOF«AT(/5X. • RT  SUBSPACE  RESIDUAL  •  * ,E12.5.‘  ■»»**. /5X. 

1  LT  SUBSPACE  RESIDUAL  •  1 .E12.5*‘  /5X 

2  .  ENTER  "1"  TO  RETURN  TO  ADS.  ELSE  ■■■*'. /5X 

S  *•■■■  ENTER  "2". 


RfAOC  <* .  23 1  )  IRTN 

CALL  PRTCNSC 'CLftSCRN  ■) 
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ISC 


>  v  vV W'v vA-'  vv** ^ »*•.>  >** v>  .*»  .s ^ ,>„• .  * . * 4v.s  \  *. .v  •/ \* 


M  if  ;  •  i- 

l*  *5*11.  r  :  It  3  00  JOCTQ 

!»**«•  .  I  .  ; 

90 *Q  4: 

oo  n  r  •  i . 

*V  ■  .  OO/CSOSl I  • 

C5o*c<;.jj  •  gc>»lx ' *v . o . oo  i 

OO  7S  I  .  1  .  IIUNKT 
*V  •  l  . Oo/TQ Tg' (  t  ) 
TQTWCU.l)  •  DCV**V.)t  t  XV . 0 . 00  ) 
00  7*  1  •  l.u 
00  T*  J  •  l  ,L 
CSUT(J.  I  I  •  CSUM.JI 
OO  77  I  .  I  .  fQ 


9 


iwwaewwaW 


77 


00  77  J  •  l  IQ 
TOTOWTCJ.I)  -  T9T0UM.J) 

CALL  CMATML  (CSV  •  C30SC •  IQ  >  IBAMCC  •  IftANKC  >C3VC ) 

CALL  CMATML(C3VC.CSUT.IQ.IRANKC.L.CS0n 
CMX  OUTH.t  T0T1V.  T0T1SC 1RAMCT  .  I0ANKT  .  T0T1SS  ) 
CMX  C»ATNLlT0TW5.TBT*yT.W.  I0AMKT  ,  IQ.  TOT* I  ) 

C  MOOUC  UKOJI  TEST  *00  C30I  a*0  TOT01 

CM.L  CMATml(mm17 .C50I -L* IQ.L-CC53) 

CALL  CMAT*L(CCC3.*M17.L.L. IQ.CSOMF > 

DO  fl  I  •  t • L 

oo*i  j  •  i . :o 

•  1  •  CSQNF't.jl  -  *Ml7ft.j» 

:  :eb un  i  re c 

ZO  *3H*A T'/$K.  7C0 

C  i  ■  .  /  I 

C  *■!*€  (*.*:  H(0RCM.(WM|7f  I.JM.JSI.  CQ  1  •  1*1  .  L  J 
CALL  CWATHLtwHlf.  fOTSJ  .  IH.«.  IM.TTM  ) 

CALL  CHAtHLf TTB«.-«!i.  IN.  :«.«.T0TWA  ) 

30  l  ■  I .  IM 

00  *2  j  •  i .* 

72  MMUM-JJ  ■  TQTWd.jl  -  MH1KI.J) 

C  OCBUO  MftITCS 

C  *A»tTf(t.fJJ 

CS  *0*«AT ( /§* . • ••••  TOTf  ••••’ 

C  l  .  /  ) 

:  wOITCf  i.SC  )(  (OIICal  m»18(  I  .«*  1 1 .  j»1  .mi ,  {•[ .  IN) 

C  »:nD  'IT 

TALL  CWATHLIWHJO.  T-JTBI  .N.M.  IQ.^Hl  J 
CALc  CMATMLiMMI • JOT.*, iQ.c.rfHS 1 
CALL  CMATHL  AMS . CCC • M . L • L • AMS  3 
c  *i*o  *:▼ 

CALL  CMATM.(»#»20.V0.N,H.  1Q.MH4  J 
CALL  OMr*L(*M*.C30[  I0.L.WM7  ) 

CALL  C*AT*L( WH7.CCC.H.L- w.*M8 1 

c  *:*o  *st 

CALL  C*ATML(WWCO.'OT*I IQ. MM* 1 
CALL  CHATM.l*H*.*MH.H.  IQ.H.AHU  ) 

CALL  CMATHL(MN1' .VO.H.M. XQ.MM12) 

CALL  CMATHLtwmS.CSql  IO.L.-MIJ) 

CALL  OATM.(WHlJ.CCC.M.L»L.AH14) 

C  *t*0  *CT 

00  05  I  •  i.M 

DO  15  j  •  l.L 

BS  *CT(I.JJ  •  -  NHBM.JI  •  NHIA(X.J) 

C  *  I  MO  * l s 

CALL  CNATMLCUHCO.VO.m.H. I0.MM4 J 
CALL  CMATMLCMH4.CS01 I0.L.WN7 J 
CALL  CMAT*L(NH7.CCC.M.L.L.**«  > 

C  *INO  *23 

CALL  CNATML(WH20.T0Ttr.M.M. IQ.MM9 I 
CALL  CMATHL (WM*.UOT.H. IQ.L.MMIO) 

CALL  CMATMLfWMlO.CCC.M.L.L.WMil ) 

C  FIND  FIS 

CALL  CMATML(WH20.T0TBI .M.M. I0.WM12) 

CALL  CMATML(MM12.U0T.M.IQ.L.MM13) 

CALL  CMATMLt WMl 3  .  WM1 7 .M • L .  IQ • MM 14 } 

CALL  CMATMLCMMU.CSOI  .M.  IQ.L.MMI5  ) 

CALL  CMATMLCNM13.CCC.M.L.L.WM14) 

C  FIND  FCS 

DO  80  I  ■  l.M 
DO  BO  J  •  l.L 

00  FCS(I.J)  •-UMB(I.J)  -  MMll(I.J)  ♦  MMlid.J) 

C  FINO  FCO 

00  350  I  ■  l.N 
DO  350  J  •  l.N 
350  VII1.J1  •  T(J.I) 

CALL  CMATMUV.EIODM.N.N.N.VE) 

CALL  CMATMLtVE.VI .N.N.N.VCVl 
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SIS 

SI  4 

c 

no 

su 

SIS 

S14 

si: 

sis 

sso 

su 

J2S 

SSi 

c 

1000 

400 

410 

4:o 

4S0 

c 

c 

c 

c 

C»«M« 


DO  MS  1  .  l.N 

oo  sss  j  •  i.n 

VHAU.JI  •  VtVU.JI  -  ACC  I  ■  ) 

CALL  CHATNL1U1TC.VMA.  1V.N.N.CS) 

HAITI! t. 1st) 

POAMATC/SX.'a.P.  CS 

HAITE<t.51S)Ue*Ct.J>.J.l.N>.I.l.Iv) 

CALL  CHATHLC»1C.VNA.N.N.N.»V) 

CALL  CNATNHSV.CtC-N.N.L-»CO) 

OtSUO  NAITE  BOTH  PCS  ANO  FCT 
NAITECt.SlO) 

P0ANATC/5X.’....  p I GHT  FEEDBACK  OAINS  . . 

>•!*€(*.  ns:  l  IPC3U  .  J  I  .j«l.Ll.t»l.NI 

-•its: t.ci i : 

•OANATC/SX. • .CP’  FEEDBACK  3a INS 

NAITECt.JlSll IFCTC I. jl.jal.,. l.l.i.Hl 
P0ANATClx.4UX.eUS.lXl) 

NAlTECt.Jlt  I 

. .  OAV  PJEOiACK  OAINS  ...»•,/) 

“AlTeiA.JlsncPCOCI.Jl.JAl.Ll.I.l.N) 

NAiTen.jui 

. .  SELECT  B10HT  OA  l£PT  OAINS  ••••-./Sx. 

1  .  «**£*  -1-  POB  BIGHT  OAINS  .•••■■/sx. 

2  .  eNTCB  -2-  FOB  LEFT  OAINS  /SX. 

J  '••••  ENTCB  -S-  POB  OAV  OAINS 

BgAdiFUji  no 
IF! IG.SQ. 1 1G0T3  120 

ip! io.eo.3 iooto  J2s 

DO  SIS  I  .  l.N 
DO  SIS  J  •  ; .L 
PCII.J)  .  PCTCI.JI 
GOTO  1000 
00  SU  I  •  l.N 

00  Sl»  0  •  l.L 

pcn.ji  .  pcsii.j) 

30T0  1000 
00  S2t  1  .  l.N 

00  S2S  j  «  l.c. 

PCC1.J1  •  PCOCI.JI 

pino  eioeNSTBucTLBc 
CALL  CNATNLCBC.PC.N.N.L.SCPC1 

call  CmaThlcBCPC.CC.N.L.M.SCPCCI 
DO  too  I  •  l.N 
oo  too  J  •  i.n 

CLNCI.JI  a  ACCI.J1  .  SCPCC C I . J ) 

CALL  EIOCC C CLM . N. 1 0 • 1 . C /ALU . CVECT . 1 0 .HOAX . IEB 1 
WAITECt.tlOI 

POAMA  TC/Sx.  'aaaa  EIGENVALUES  BESULTINO  PBC3N  PEEOEP  CALC  .a..-,/, 
WAlTE!t.t20)ievALUt I ). l-l .N) 

POBNAT  I1X.E12.5.1X.EU.5) 

HAITEIt.tSOl 

. .  EIOENVECTOAS  BESULTINO  PBON  PEEDEF  CALC  ...a'./) 

WUT£(4.2*lH(eVECT(I.j).J.|.N).I.i.N) 

RETURN 

CNO 


SUBROUTINE  ALCSLN  «  SOLVES  POR  BASE  EIGENVECTORS 

algebraically 


1 

2 

s 


SUBROUTINE  ALGSLNU. B.C.EIGDpC. unity. N1. Ml. LI. V. WHAT) 
IMPLICIT  REAL»e< A-H.P-2) 

REALMS  A(10, 10 ).8( 10 »Sl* 0(10*101. UNITY (10, io)p 
AWK1  (250  )  tAUtCCSO  )  .ALSLAM(  10*  10  )  .  ALINVUO .  10  )  • 

H2(10*10).  MS (10*101* H4 (10* 10). MS(10.101,H4 (10*10). W7 (10). HB( 

NMATdO*  IQ),MS(  10  1  .SCO  )  .«K<SO) 

COMPLEX  »14  EIGO(10).E(t0.10)«V(10.10) 

INTEGER  Nl .Ml ,Ll* Ill 


10). 


181 


c 


CALCULATE 

00  1000  I  •  l .Ml 
C  REINIT  SLAMQMA 

do  it  ii  •  l.io 
oo  10  jj  •  i. 10 
4LSLAM<  I  I  .  JJ  »  •  0.00 
10  COMTlMOf 

c  recompute  alslam  *or  each  c  iocmvalle 

DO  SO  J  •  l.M| 

DO  SO  *  ■  I  .Hi 

alSlan<j.x>  •  QPCal  'f  tOO(  I  1  1«UNt  Tvi  j  .*  !  -  *!„.«) 

so  continue 

-*•!  rC  •"'A  :C8JO 
X}  .S  4  •  ..HI 

-  *•!*€'  4.  SO  MALSLAM!  J.<  !  .«*l  .Ml 

C*  »oo*»At(  iM.adio.  S.  im  » 

C5  COntinu C 

C  CO^uTf  ZMVtRSf  0*  M.3LAM 

in  «  i 

CALL  L I MV2P  <  AL  SLAM  .  M 1  .  10.ALIMV.  I  -  AMU  -  ;t*  ) 

C  MM  I  tfi  4.  100  1  m 

c  co*^gTe  c  •  :*v<alsla*> 

CALL  VMUL^IC.  ALlWV.Ll  •  Nl  .  I  0  •  1 0  .  *2  •  *  0  •  It*  I 
IM  •  IM  •  I 
c  i  rt  ( t  •  i  oo  >  m  I 

z  compute  c  *  : *<v •  ai_sca**»  ■  ■ 

CALL  V»UL”!MM.W1  .Ml  .Ml .  i3.  ,0.-S.  .  3.  ;e»  » 

Ml*  IM  •  l 
C  *■!*€'%.  100)  MI 

C  COMPuTf  :nv<C*  I  MV  <  ALCL  A#*>  •  •> 

C  DETERMINE  IP  PSEUOO  IMVfUM  IS  **<301**0 

tP(Ll .fC.MI JOOTO  to 
C  CALL  OtMIMMl.Ll -Ml  •«*  1 

CALL  LOI^IWS.  10.LI.MI  .0.00.  *4  10>S.««.  IC«  » 

OOTO  00 

TO  CALL  LIMVCPtMS.Ll  .  10.MA.  1  .AMKC.  ;*fl  I 

•o  it:  •  mi  ♦  i 

C  Mftireu.  I001IM 

C  COMPUTE  |  •  IMV<C*  INV<ALSLAM>  •  v> 

CALL  VNULPPtB.M4.Nl .Ml .Ml . 1 0 . I  3 . M* .  1 0  .  IER  ) 

Ml  •  IM  •  1 

c  mriteu.  looiiil 

C  COMPUTE  AL I  MV  •  <■* I  MV  <C* l MV  < ALSL AH> •$>  > 

CALL  VMUL^(ALlMV.M».Ml .*! .*1 .  I  0 .  I  0 . -4 . 1 0 • I CR  > 

IM  •  I X  X  •  t 

C  Mftircro. tooiift 

COO  *0«MAT(/5X. ‘OP  NO.*. 12.'  DOC  in  ALOSLM'  J 
C  COMPUTE  MO  *  E  AMO  THE  M  MATRIX 

DO  «0  J  •  I'Ll 
M7< J  1  •  DPCALtEC J. I  I J 
AO  CONTINUE 

CALL  VMULPP(U«.H7.N1 .Ml . 1 . 1 0 . 1 0 . MS . I  0 . ICR ) 

CALL  VMULRR(MA.M7.Ml .LI . 1 . 1 0 . 1 0 . M* . 1 0 . 1*R ) 

00  50  J  ■  l'Nl 

VCJ.I)  ■  OCMPLXtWBt Jl.0.00) 

50  CONTINUE 

OO  00  J  •  l.Ht 

MMAT(J'I)  *-Mf ( J  J 
40  CONTINUE 

1000  CONTINUE 

RETURN 

ENO 

C********* . . *************************************** 

c 

C  SUBROUTINE  PINVi  COMPUTES  the  PSEUDO  INVERSE  OR  an 

C  2RXIC  REAL  MATRIX.  OUTPUT  IS  THE 

C  ICXIR  PSEUDO  INVERSE  (SEE  OOLU8  AND 

C  VAN  LOAN.  -MATRIX  COMPUTATIONS’*  .P .  ljf 

C  CAUTlONut  IP  MARNINQ  PLAO  RESULTS  DUE  TO  ILL  CONDITIONED  A**T  •  A 


c  ■icflwoc  JStMt  ime  vict 

c 

. . . . 

c  MiWTin  »tw«. ia, ic.ua* 

c  mieir  ****.••»  a-*.  a-?i 

c  MAC*#  A(  1  9  .  I  0  I  .  p  !  A  l  L  o  10 t ■ A? I  10 .  | f ?  tmt  I  0  .  >  0  »  .  M04f  a  «  Jf  0  I 

C  l  MP*I  t  It.  10  '  10-  10  l  .  A*  A'  10  .  ta  *19  10 

C  !NTftJt«  t»  IC 

C  *  1  NO  * 

C  DC  10  !  •  1  . 

c  so  . :  .  •  » .  *.z 

c  .] 

'3  :o***M‘* 

',‘-£l  .r  «  . 

•  ••--i.**  *■  *.  •  r  ■  —  ?• 

-*•  *r'A  »»0G*A*  :(|/i 

^*3  *  99  i  «  •  ;  - 

*•  !  ff  *  C30C  •«•*»'  :  l  «  .III  -r 

00C  •o»mf  I  .»  .  •  C  .  3  !,a 

ooi 

* '  nC  *«y  •  a  *  •  • » 

ca<.w  .  o  .  «*>c*  ;(•< 

*:*c  iwa* 

Xv  /•«*.*• *r  ic  ::  ;•  .3  ,1  .9  m 

D€  ’€  •■*  I  *4t  •  MfjOO-  *#*AA"»f  ;A#iJA’f1  w>nAf  •  AfxA'Tlf 

:o*«oi*:>*'  «ia  •  * 

:**—  •**.**  »’.*  •*  ;•  .  ;  .  .  3  .  .  3  .»*  .  c.t« 

a.  *a.  .».  4: .  :z  .  .  0. 19  ***■,:  :c» 
on  {%  •  •  .  •• 

x  •%  •  :c 

•  ;a®v  a< : . , .  -  a# a  1 :  . .  • 

0  ••••  -tit  >o*  •  it jOo  n  ....  .«• 

••••  4*S0Lla’f  VACUt<A  -  AAA)  «•••  /  * 

30  ^  :  .  ; . 

-»r«  *.A0‘»*.  !  ,J|.  jm\  .  ;c  ! 

0  •'^A’-At  ',  A  .  •  I  C  3  i.  .a; 

0  :onm*uc 
nr<** 

?N0 


APPENDIX  D 
RECONF 


•’-I  « 

•  -I  71 

•  J  1* 

9  wt  )  * 

•  .1  ?• 

»•  €  :• 

•Icf  .9 


•  '4*  m  *  '  ,  •  « 

•  •€  :*•*  •  ,*«A*Avt?  *-  •  -*’»  cfi 

•(*:  -  •  . 

•t*0  ' 

•  ^»’ *  .  >*OA»Al€r  •  •  f ! 3f«’luC’>N 

*• :  *»  *  m  *c  -  -»••-* 

3»'fU  3*'*  .  *lt  ll*9Mg99\JC'\mt 

•t*c 

•  ««*-»•'  3*'*  -0*  ’>•*  *0 

'I 

•  •  •*•€'  :*•*  * ^  *op**v.3*- 

tm  *r 

•  *»i  >  »f  >w«(; 

?•  «»*0 

•  jncab«;  ?a  *  •  *o«  wul*. 

*  *  I  tfu  ;:s  -*<t»  *4.»;aac?  «•;'€  **«x.  •••: 

*•:** 

•  •tctjs  da*a  .  •(ct»^!a^»cc  f  :atNtT»gc*vA»« 

t^lTf 

•  •■A.'!'  ^A'A  •  ;tJ»: 

*»I*E  Ov*!*0  A  .  |! 


"0 »  <  *  tav:*o 


I'nici’  *iAi.««tA.-  o-:i 

•tAc*A  asinq'O*  s%\  ntNO(4t.i3)  :s:nom«.i»i 

::^ion  fit  »  9<i9  .3  :  st  55  »  ai  55.  n-oji  io.ii.pi  io.  it: 

dimension  :ld*(  .3.  ;•  i  55  >  ts'99.99 )  .u»Ti»t .45 .  .*•<$* > 

“:<«MSION  A>|(|;}:  C5tS9  44  JC*f54 55  >  .SCt54  l  «*C  l  to  ) 
dimension  **:  jc  *5  *p  55 

3:**ns;on  «*t;33  :  ■  .5*  .  -*t  I  »:3o  ;  .«*ai  -55 : 

Dl*RfNSJON  APiifiJ  55  1  ■»*)•< 59-  J  CR.t<  It'S*  >  -DR  It  145.1  ) 
DIMENSION  MA*iii;i  NBr:|(2).NC^i|i:  J.NDRlilZ) 

0 1 Hf MS  I QH  UI S j *X<44 >  0UN*<55 ) -0UH9 (IS , 

DINCNSION  HUC!  .  NKN  (  2  )  • NDUH* < 2  1  . NDUN5 < 2  >  . BO  I < 55 • 55  )  . CO  I  ( 45  •  45  > 
DlNtHSJON 

CONBLt*»l*  E 145  ). XI 100. i 00 ). DEL  155. 55 >• UN! Tvc (55.551. *0*155. 551 
i  <0(91  -55  1.XM55.44).XS(44.55).XDXA(55  44J 
COMRuE*« 1  *  U»0 TC  ?  55 . 55 ) . Ut I TC  <  55 ■ 55 ) . B2 1 nv 1 54 . 54  > 

«**LI**U  UC3TC<5455  >  .  UC 1  TC  ( 59 . 99  >  .CZ  INV  (99 . 59  ) 

CONRlBX-U  BUt  <55. 59  J  -CUC  (55 . 55  J .  BU*0<  55  •  55  )  -PC; 55 .55  > 
COMPLIXM*  ETIUISS ) .xriL< loo. IOC ) . BO:C(S5.5S  )  .CGI C (55. 55  ) 
COMPLEX* l*  ESLCwCA  )  .*SlOW<55.2*  )  -EG  ( 55  1 .  S»  .  Q  ( 55 . 55  ) 

COMPLEX**  ESINGC4  ) 

INTEGER  K • I HOD • tut  I TE . IEVECT , IELE . I5L0W . KFAST . 2  BOW ■ ! D IS • I*ESP • 
■IBAMCt. IBANKC. IROWS. I2TATE155 J .KSTATE(55 ) • I ORDER . IF JLL • MCONT . 

•NJT .MS TP , IDA* 

CHARACTER •«  NAHC 

c 

C - - - initialize  matrices - 

c 


DO  10  1  ■  1.55 
ESC  I )  •  0 .DO 


tSTATtm  •  • 
oo  l«  j  •  l.tf 

uMirvu.j)  •  o.m 

tuirvccl.j)  •  Detroit f.M.o. oo > 

cum i . j i  •  i.oo 

otui.jj  •  ooruxtp.oo.o.oo) 

•  OCMPiJif  O.OO.Q.DO  > 
woe  I  - ^  »  •  X»*L*«0 -00. 0 ,00 ) 

*m.ji  •  actrun o-oo.o. oe i 
<<!•«•>  •  OCMt\.m  o  .00  •  0  00  > 

iumoc.j)  •  xtrext o.oo. o.ooi 

U»T( t . Jl  •  ; .00 
Kr-  I  .  „  ]  «  ;  .CO 

«i » r .  .  -  •  -2 

3| r ; . v  .  .  _o 

jOO^CIJ  •  C.'t^ixco .  30.  i  .  00  i 
JIPCII./  •  Xnacx  i  0  .  DO  •  0  DO  ' 

•rtwvu.j)  •  xtrex  <  o  .  oo .  o .  oo  i 
C?iMvei  jj  •  xrt»i o .oo . o  oo  i 
•sc i . j  »  •  o . oe 
CS  . 1 . J  l  •  9.00 

••ICM.JJ  •  XN*l*<0 -DO  .  0  001 
COICtt.Jt  •  XN*\.*f  0 . 00 . 0 . 00  t 
1 0  A  (  t  .  J  I  ■  9  00 

30  0  *  •  ;.** 
jNfr^c { . I i  •  ; .oo 

c  i  oe. a  oo  > 

30  .%  J  .  . . .0 

it  •>  I  w  )  •  a  oo 

oo  ;o  :  •  . .  io 

30  :o  J  •  ;.H 
*0  C! I . w 1  •  0  DO 

00  Ct  l  •  1.49 

oo  :i  j  .  i.j 
UtjJ  •  0  ■  DO 
2t  01 ( t . w  I  •  3  CO 

oo  so  :  •  i .  io 

30  SO  .  •  -.5 
so  or  < : .  j  !  •  9  oo 

00  40  I  •  1 .  10 
X  «0  J  •  4 . It 

•▼tUSAU.JI  .  O.DO 
AO  ACl.jl  •  0.00 

oo  A9  I  •  | .coo 

At  MK( I  1  •  o .00 

00  to  I  •  ;  .99 

to  Kell  •  DOTV.X  c  o  .  00 . 0 . 00  ) 
oo  tt  t  •  . . voo 

00  tt  J  •  l  .  I  00 

tt  KCJ.j)  •  DOTLXCO.DO.  0.00  I 

c 

c - initialise  - - 

c 

ItANKt  •  o 
IRAMCC  •  0 

c 

c - tEAD  IN  tvs  TEN  OATA  AXON  XU.E  01  "•CCONt 

c 

•CAD (I. 100) NAME 

"CAOCl.  HO  )(  (Ad.  j).  j.  1.95  55, 

•EAOt 1 » 100 INANE 

•EAOd.  110  ){(■(!.  10).  1. 1 .55) 

•EADd .  100  INANE 

•EAD(1 . 110H  (Oi  (I.  JJ.JM.S  j  ,|.j  .55  j 
•EA0C1 .100) name 

•eAD(  1.  no  )((Cd.j),j.  1.55  ).!■!.  It) 

•EAO( 1  .  100  )NAMf 

•CADt 1»110)((F(I,J),J«J, It). !•! . 10) 

•CaD( 1 . 100  INANE 


R€AD<  l»H0H(Q2d.J)>J*l.S).I*l>10) 
REAOd.lOOlMAME 

RCA0C1. 110  JUCLM  Z.  J).J»1.  Si).  1*1  .if) 

100  FQRMATdM.AA) 

101  FORMAT  (4 12 ) 

110  FORMAT (4020. IS) 

111  FORMAT (41 12. 9) 

C 

c - Decision  oue - 

c 

CALL  MTCHSt  *CU»SCHN  *) 

writer.  ;so  i 


so 


199 

140 


-on** re  /  ^x ,  •  *>ter 

•  .,5x. 

•  ./Sx.1 


-a i";  jNOAMAnec  €!SE^stouct\«e. a 

5vST.  "AtR ICES. • READ  •°eCON*”  DATA  a  I . 
-UNO  ICC-  •  "'XOABC"  1  -CLN-. 


•  ./9X. 


•  ./9x. 


•enter 


'ENTER  -S- 

• INTER  -A- 

*  INTER  -S" 


TO  READ  UN  Dam  AGCO  EIQEnSTRuCTure  anO’ 
write  scon  rt  suirace  data  for  jse  tv 

-IRSRACI-  (WRITE  -HORACE-  data  All 
TO  COMRUTE  RECONR I OURED  OAINS. 

(WRITE  -RRECON"  DATA  ad 
to  COMPUTE  RECONRIO.  EIOCNSTRUCTURE 
AND  TIME  RESPONSE  (ORTMaTQ .  ORTRuOT  ) 

TO  COMRUTE  Q  ANO  WRITE  FIlE  12 
-RXACT-  DATA. 


/9x 
/  9X 
/9x 
/9X 
✓  5X 
/9x 
/Sx 


•EAOO.  1991K 
FORMAT (I l  1 
*ORmat( 12 ) 

CALL  RRTCMS( -CLRSCRN  M 
IRnC.EO.S  JOOTO  272 


IRIK.EQ.a 100TO  Ill 
IR(K.CO.S)OOTO  170 
IF(K.E0.2 1QOTO  170 

C - STORE  UNO  CL  IN  UNITY  MATRIX - 

00  149  I  •  1.99 
00  149  J  •  1.99 
1*9  UNITVCI.J)  •  CLM(t.J) 

CALL  EI0RR(CLM.99.99. l.E.X. 100.WK. IER) 

WRITE12.  UOX  (XC.J).J.l.  99  ).!•:.  95  ) 
wRITE(2.llO)(E(I  l.Id.991 
C  DO  194  I  •  1.99 

C  DO  194  J  •  1.99 

C  AA  •  A(l.J) 

C194  ASINOU.J)  •  SNOL(AA) 

C  DO  197  I  •  1.99 

C  DO  197  J  1  1.10 

C  BB  -  8(1. J) 

CIS 7  S-.ING(I.J)  •  SNOL(BB) 

c  00  ;sa  I  •  1.18 

C  DO  198  J  ■  1.95 

C  CC  ■  Ctl.J) 

C158  CSINO(I.J)  •  SNOL(CC) 

C  WRITE (8. 111M ( AS INQ( t.Jl.Jal* 95). 1*1.99) 

C  WRITE  (8.  HIM  (BSINO(I.Jl.J-l.lO  ).  1-1 .55) 

C  WRITE(8. HI )( (CSlNO(I.J).Jal .551.1*1.18) 

WRlTEdl.110  MCUNITVd.JJ.J*  1.55 1.1*1. 99) 

C  WRITE  (11. nOM(01(I.J)»J*l.S)«I*l.SS) 

C  WRITK  ll.ll0M(O2d.J).J*l.J).I*1.10) 

OOTO  9000 

170  REA0(2. 110 M(X(I.J).J-1.SS 1.1*1.551 

READ ( 2. 1 10  ME (1  )«I*1 .95) 

IF(K.E0.3)00T0  180 
C 

C  DECOUPLE  LATERAL  DYNAMICS  FROM  STABS 

C  OECOUPLE  LAT  VECTORS  FROM  LONG  ELEMENTS 

177  WRITE(4. 172) 

172  FORMAT  ( /5X . '  >  *  *  *  ENTER  "1**  TO  MODIFY  OESIRED  EIGENSTRUCTURE  *«»*‘. 

*  /5X.*"«**  ELSE  ENTER  . . . 

•  /) 

REAO(*.159)IMOO 


186 


CALL  PATCMXC  'CLXSCPN  •  ) 

IK  I NOO. «Q. 0)0010  ttO 
CAU.  PtTCMtt  'CLH3C0N  *  ) 

C  DO  17f  I  •  1.14 

c  iki.lc  4)ooro  i70 

C  IP(t  .0E.4  )00T0  17* 

C  OOTO  l  70 

C7S  011,421  •  OCMPLXIO.OQ.O.OQI 

C  XCI.ftS)  •  DCW.*  (0.00.0. 00  ) 

C  mi. 4*)  •  DCNPlX  ( 0 . 30  ■  0 . 00  ) 

C  XU. 4*1  la  OCWALXtO. DO- 0.001 

CTO  CONT I nuC 

oo  .74  :  •  *.t 

:  •«:.:#)  *  ccmpi.xio  oo.o.co) 

2  ;;cn*lx(  C  .  CO.  0  .  CO  ) 

:  •  xmalx(O.co.o.oo) 

c  ki:.*ii  •  ocnpl*<o  so. o. ooi 

xci*i;  •  DCnplxio.oo.o.do  ) 

4(1-2)  •  OCAALX(O.OO.O.DO) 

XI  1.2)  •  XN7LM  I  0 . 00 . 0  ■  00  I 
4(1.41  .  OC«*LX(O.DO. 0.00 : 

C  4(1.7)  •  OCM»LK(0  00.0.00) 

C  411.0)  •  DCHPUX(O.OO.Q.OO) 

C  4(1.17)  •  0.00.0. DO) 

C  4C.lt)  •  XHALXi  0 . 00. 0 . 00  I 

i 74  continue 

c 

c - oisplav  oesmeo  cioeMSTxgctuxe  ip  uouixeo- - 

no  -*ce<4.  ci  i 

i7i  *o**Arr/*4.  ••••  enrex  -i-  -o  oisplav  oesiped  ciocnstactuhe*..** . 

;  S*.  '«•■«  CNTe»  -0"  OTHCOhlSC.  . . 

2) 

tCAOla.lfSUMlte 
CALL  MTCHSC  CU» SCAN  1  ) 
lAuwxiTe.so.ojooro  ;» 

WAITECt.OOO  J 

200  *04HATt/5x.  *•••  UNOAMAOCD  tDESIPCD)  E  J  3ENSTftucTu«£  OX  Pit  •«••*./ 

1 ) 

00  250  I  •  l.ss.4 

npite<a.2io)I..im.i*2.i*s.ec mum  i.eu*: j.cc^ji 

no  aokmat(/:x. ‘eioenvALue  no.  * .  i;.«x.4x,  ciocnvaluc  no.  mmck. 

l'CIOCNVALUC  NO.  12. 12X. 'EIGENVALUE  NO.  * . (2./2X.E12.5. IX, CIS. s. 

:  :x.ei: .5. ix.ei: .s.cx.ei: .5. ix.ets.s.fx.eis.s. u.eis.s./) 

211  AOX«AT(2x.ei2.S,lX.€12.5.2X.ei2.5.lX,ei2.5.:x.CV2.». 1X.E12.5.2X. 

:  £12.5. U.E12.5./) 

WAITet 4.220 MXtj. M.X(J. 1*1 J.XCJ. I*2).X(J. 1*2). J»l .55 ) 

220  *OPmaT ( 2X . £12 . 5 • iX .£12 . 5 . 2X. £12 . 5 . t x . £12 . 5 . 2X.C12 . 5 . IX . €12 . 5 . 2X . 

;C12.5. IX. £12. 5 ) 

250  CONTI NUe 

c 

C - COMPUTE  X»0€L«Xa»-l  (UNOANAOED/OCSIPED  EIGEN3TPUCTUPE ) - 

c 

255  DO  240  1  ■  1.55 

DCLC.I)  •  EC) 

DO  240  J  ■  1.55 
240  XSC.J)  •  X(I.J) 

CALL  CMATML ( XS . DEL . 55 . 56 « 55 • XO ) 

CALL  L£QTlC(XS.S6.55.UNlTyC.S5.S5.0.UAl.ICR) 

CALL  CMATML(XD.UNITVC.56.55.55.XDX) 

C 

C - COMPUTE  SVD  OF  B  AND  C  (DAMAGED) - 

c 

272  DO  270  I  •  1.S5 

UlT(l.l)  •  l.DO  r 

DO  270  J  •  1.10 

270  N(l.J)  •  SC.J) 

MAITEC4.271 ) 

271  F0PMAT(/5X. CALLING  LSVOF  POP  I  •■•»'./) 


187 


a 


*4 


CJU.  LSW(tS.tft.f«.  IO.U|T.St.»».SI.M(l.  ion 

»aiTtu.m> 

LSW  QF  CO^UfTl  ••••'./) 

CALL  «MftO(n.J|T.U.(l.  10.U»0TC.U«lTC.**lWV.  (RANKS  •  M  l  > 


»!Tf<4.:74  WRANK8 


POUNATtS*.'  RAMK(|>  » 


DO  280  ;  •  l  •  is 


JC’(  t • 1 )  •  l .00 


x  :io  j  ■  i.st 

z* (-».  i )  •  ct : ..  y 


*QR#*A  *  f  '  5 *  •  ••••  .Acu:^0  ^SvQF 


CALL  ..3V0F  CS-55  t*.5S.  JC'  ^5.  •■•-C.-AC.  ;e»  ' 


mr  i  ■fc  t  •  •  ct2  ) 

*QRRAT{/«H.-mm  „SV0F  JW  -C"  :0»1.C’!  •••• 

call  rankoics. jct.sc.  »«-5i.sX:oTc.xiTc.cr:Mv.  iiawc  cai  j 


iitf  •  :»ahkc 


por*aT(Sx.  a amh ( C  '  • 

ipik.eq. s jooto  :«s 


:f<k.eq.s iooto  si: 


- >A  I  T£  SL3M  et'lCMStRuC^URf- 


•utLO  scow  ciocnsaacc 


ISLX  •  0 

<FAST  •  3 


£CH€CK  •  DREal  C 


ECMfCA  *  3A»S < CCHCCK J 


won  SvhKtrjc  CASES  JSC  2  <  ■ . $0-01  •>  20  StATCS 
- SVWMCTfttC  CaSCS - 

won  sequent  i  i(2*j  jsc  :  <  7.sfo-oi«>  :*  states 
*o*  :io«CNt  :  .  :.$*>■  oi  <  :  <  *.5«o-oi 
won  SEGMENT  J  ,  o.  <  2  <  5.5*0-01 
iRiecHecA.wT.i.so-anoo^o  :•* 

IF (CCHtCA.LT. 5.5*0-01 )0070  29* 

IF  ( ECMECA  .v»T  .  7 .54000-0  1  )OCTO  29* 

;F(ecHCCA.oT.2.5*o-onooTo  :t* 

ISLOM  •  ISLOM  •  I 

- ISTATE  •  VECTOR  OF  INOICCS  CORRESPONDING  tq  SLOW  STATES — 

ISTATEC ISLOM)  *  I 


ESL0M( JSLON)  •  C ( I ) 


es:no( islomj 


CALL  SROQT <  E ( I ) • 1 >  SR . . 0 1 25  ) 


WRITCC4.2*l ) I  SLOW. I .  SR 


format (ix.' slow  state  mo. 


. •  jno  state  ho. 


S  •  • >E 12 . 5  . 


•  1X.C12.S. * J*  ) 

00  299  J  •  1.55 


XSLOMIJ.  ISLOMJ  •  XCJ»n 


KFAST  •  KFAST  •  1 


-KSTATE  •  VECTOR  OF  INOICCS  CORCSFONOINO  TO  FAST  STATES - 


KSTATE (KFAST)  -  I 


IF (K . NC . 1 )OOTO  287 
WRI7E(8. 101 } I SLOW 


WRITE(8.ill)(ESINO<I ). lal.XSLOW) 
GOTO  9000 


IRONS  •  ISLOM 


WRITE(5. 294)1 ROMS. KFAST. I RANKS. 1RANKC 


FORMAT (412) 


WRITE (9»110)(E(!),I*1« 99) 


WRITEff- 110  )((X(I.J).J« 1,59 ).!•!. 59 ) 
MR  I TE( 9 ,297 ) ( ISTATE( I ) • I ■ l • IR0W3 ) 
WRITE(9»257 ) ( KSTATE ( I ) • 1*1 .KFAST) 
FORMAT(*012) 

WRITEI9, 11Q)(ESL0M( I ) . !■! . I ROMS) 


••I  *1  *  •  ■  l  It  >c  :  *  t  !  .  .  1  .  J»  1 . 44  |4| 

!*0»  •  «  -  |B««i 

«•!*«  t*OM 


•  I  •  M 


*  <  *"-2a  *f :  ^  :jjk:  l» 


:  H  X  1  5  ; 


«  t;  *>  v — 


■  a*.-  -**•*.  *_«r  s:-  *  M  v 

xi.::.  ? 


XI::  -  .  • 


*•!  tc  so 


jo;  *r*f  *  n 


jo.  *  “?b«wi  •  i .  ....  ^ 

!.J  •*  .;*  :  •  :*€* 

JC*-'  *.* 


^•1*  ia: 


•  *»ac*  *t.c  .:- 


1  *  •* 1  ^  :  .#•  i  ss  :  •  :»o* 

ao’o  *ooo 


>•  *:~£  ’•  anc 


rre  •  :  is  1  *’:.;*i:,ji...1  ,*  . 


c- - »e*o  *,r:wOA  *»om  *uf  or  anc  -ont.***. 

c 

111  •c**0(  *.  115K  (»t!w0A,  .  J.i  .if  ..  :«4  .;o- 


-»ino  ciatNsv»ixTu*cs  y  •ecoNF;iy»eo  s^s’e^- 


calw  ^ul**»f*  :_oa  .c .  io. ;§-$§. :s.  .f  .ffrc  •  ;c.  ;c»  > 

call  '/"va.b*  ( • • *r : • ss - ;o - ss  ss ■  i o  bb  ss .  :c#  i 
oo  j:o  :  •  ; .ss 
oo  i:o  j  •  i .ss 

CL»T Itll.jl  •  4(1. JJ  •  fB  <  I  .  j  > 

4IC  AflttJ.J)  .  CLHTKC.j) 

CALL  t:OfA<CL*TrL.SS.S5. I .C^IL.XTjL. 100.WXT. :c« ) 
CALL  S*OOT(B»SL. *»■«.. 012S1 


C““ - *1*0  CL"  FOB  mOHInal  SYSTEM- - 

C  NOTfi  USING  CLWTlL  BOB  ABl*  NOMINAL  DUE  TO  STOBAQE  LIMITS 
C  CLMTIL  IS  USED  bob  mOCal  bollOminq 

CALL  V"ULBB(*.C. 10. IB . SS . I C . IB . BTC . 1 0 . I ER ) 

CALL  V"U.BB(B.B7C.$S.10.SS.SS.I0.tB.SS.ICH> 

00  122  I  ■  I.SS 
00  122  J  •  1.55 

S22  CLHTILU.JI  •  ACI.j)  •  BB(t.J) 


-MBltr  BILE  10  BCCCIO  DATA— 


•*ITE(10.U0)C  UTIL<  I.JJ.JM  .55).  I-l.SS) 


P 

Is-* .  - 


*cco**-Ov*€C  f iacws-Ruc-uRf- 


rf  ’i  * 


*:* 

..  ?«*-$•  -.-  *?  ?:s»la«  •?ro^f:ou*c^ 
••••  I  X^’tuC^I  £.'f  **•'?»  *8"- 


»«*r  *  *« 


.*  *  *  .  c:  f 

-i  ■!  •  „• ; ?  .  . 

*  * 


»»  >»r  '  •ec  €  :3f>s*®  z~  ®c  ••••  .  ’ 

•. 

.  •  i ' .  _  .  z  -  _  .  • .  f  - :  l  :  • :  • .  <r  i  w . :  •  s  i 

.  ,*  .  _ 2*2  :.xTIKJ.  2*3  !..*■  1.55) 


D«M**ocr  c :  ;.€wsTR  uc'me  •••••  -’ 


_■  -f  «  ;,?>:  :«j  edan<  :  :*i  s.eoani  wj.edanc^S) 

.1  *»  %  ;  -  j  •  I  •  l  • .  OaW.  -  • 1  *2  •  *Dami  J 1 1  *3  )  .  J»  l  •  55 

: *«jf 


- : : •  a«c  *TiwDA- 


-•  *»  «  j*: 

*  *«A«  *4.  DawaOCO  *EED1aC*  >AIN  MATRIX  •■■■*. s/Sx.‘  COL  I-* 

:*5  :  •  :«  a 

.*  f  . .  j*% ,  :  •  .x.  j.  :•  i '  .r :*j  j  .pc  j.  j  . 

•  „ . : . F  r . . : • t  J . P  *  j . 2 •! J « J* 1 • i 0  1 

:*  :  3*  :  oc'c  j*: 
n»1"E;  *  •  3*1  ) 

-  T»«*A?  5»  :ol  .0  -  .9  ■  •  *  3 

to**  :njc 

;x.«ce::  .5.  ix  •  ; 

-p:*€  «  :ss  ; 

■  T»*4At  **.••••  »T1l3a  ••••*. //5X.’  COL  !-••  ■/) 

xj  :ss  i  ■  i.it.i 

m* i tc  ( * . 5* * i c ft i loa ( j •  i } .ftildau. :*h.ftilda(j.i*2).ft:lda(j. i*s 

;  ) .FTIuDAi J. :•*  J.FTIlOACJ. r*51 .FTIL3A(J. !♦*). 

:  FTJLOAi j. |*7  I.PMlDACJ. 2*8  > • J- 1 . 10 J 

:f{ : .or jocto  a o i 
rsi  j 

FOR  ha f ( / 5 x • ’ COL  10  -  IS'./) 
continue 

-iUluO  aP  '.  8  •  8F  1 8  .  CF  1 8  .  DF  1 8  FOR  RESPONSE  CALCULATION  AND  PLOTTING - 

WR !  ~E  1 4  •  3  4  0  1 

FCRMATU5X.  *  ■  ENTER  **  1 "  FOR  TINE  RESPONSE  CALC.  *«■■*.  /SK. 

1  ’nmmm  ENTER  "0"  OTHERWISE.  ■«■»*./) 

READC*.  155  MRESP 
IF( IRESP.EO.OJOOTO  *000 
NAF18U  )  ■  55 

NAF 18(2)  ■  55 

CALL  VMULFF(B.02.55. 10.3.55. 10. 8F18. 55. IER) 

DO  405  I  ■  1.55 
DO  405  J  •  1.3 

SFifd.j)  ■  oni.j)  ♦  BFiiU.ji 
N8F18U)  ■  55 
NJF 16(2)  ■  3 
DO  410  I  •  1.18 
DO  410  J  •  1.55 
CPIS(I.J)  •  CCI.J) 

MCF16U)  ■  18 
NCF18(21  •  55 


microcopy  resolution  test  chart 

NAllOMAl  BUWM.I  n‘  ,?’^N(tAROS  a 


i»*%r»tryP1i  «\  iV<h;  «h:  «*c?r  ^ 


r\ 


BO  411  J  •  l.J 
ofisu.ji  «  o.m 
wopirii)  «  it 
WFIKil  .  s 


CONBUTS  UVONSC  FOR  500  BATA  POINTS  AMO  CA SATE  OPTFLOT  DATA  FILE 


WRITE!*. 500) 

FORMAT c // 1 X. ’COMP UT I NO  TIME  RESPONSE'  1 
WRITE  OPTPLOT  PARAMETERS  AND  NULL  FEEDSACX  MATRIX  INTO  BATA  FILE 
I ORDER  •  55 

NOUHAH).  t ORDER 
N0UHA!2).3 

CALL  NULL [BUM*. HOUMA) 

IFULL  •  HOUMA ! 1 1 aNOUMA { 2 ) 

WRITECA.510)  IOROER. 3. 501.1.1 
WRITE!*, 515)  (DUMA! 1 1 . 1 ■ 1 . IFULL 1 
510  FORMAT15IS) 

515  FORMAT (SE1A. 7) 

-  INITIALIZE  THE  STATE  AND  INFUT  VARIASLS  _ 

NXXd  1«S5 


NUI2)Al 

CALL  NULL(XX.NXX) 
CALL  NULL1U.NU) 


-CONFUTE  RESPONSE - 


WRITE!*. 521 1 

FORMATi/SX.'aa..  ENTER  “I*  FOR  NODAL  FOLLOW I NO  /SX. 

1  .  ENTER  -0-  OTHERWISE. 

READ!*. 155110AM 

CALL  FRTCMSCCLRSCRN  ‘1 

AMP  •  1. 

NCONT  A  1 

mst  •  o 

NS TP  .  DAO 
T3  •  .0125 
OO  520  1-0.500 
TIME-IaTS 

-  check  control  parameters  and  set  control  input  — 

IF  (I .OE.NST.ANO. I .LE.NSTP 1  THEN 
UINCONTIaAMP 

ELSE 

UINCONTl.O.O 

END  IF 

•RITE! A. 5301  TIME. (U(J1. Ja 1.31. (XX! Jl.J-l. IOROER 1 

. RESET  SCALE  FACTORS  FOR  X3.XA.X«.X7.X8 . 

. TO  RADIANS  FOR  PROPER  CALCULATIONS . 

00  (00  K  •  1.10 
IPfK.LT.S.OR.K.OT.R 10CT0  S00 
IPCK.EQ.S 1QOTO  S00 
XX(K!«XX(Kl/5.72F*0»0l 
CONTINUE 


-  MULTIPLY  API*  »V  XXCNl- 

I ORDER  •  55 


- CMECX  IF  MODAL  FOLLOWING  IS  REDO - - - 

IF! IDAM.EO.O 100T0  525 
IF1XX1R 1 ,LT, 0.0 1COT0  525 
00  531  M  •  1. IOROER 
OUHAIM)  •  0.00 

OO  535  N  •  1 . IOROER 
OUMAIM)  .  OUHAIM)  •  CLMTIL!M.N)«XX!N) 

CONTINUE 


QOTO  SA5 

00  5A0  M»l. IOROER 


iWWQWiWiCiC 


?.ev:WWV?i 


DUH4CN)'0.0 

00  550  M'l.IOROER 

ISO  DgM4(H)aOUM4CM)*AFl8CM.N)»)OC(N) 

§40  CONTINUE 

C -  MULTIPLY  BP  18  BY  U(M) - 

§4ft  00  540  M'l.IOROER 

DUMSCNJ'O . 0 

00  570  M-I.J 

570  0UN5(M)'DUM5CM)*BFl$(M.N)'U(N) 

540  CONTINUE 

C - - -  ADO  APIS  XXI N)  AND  8FI8  UCN3 - — - 

DO  580  M  ■  l .  I  ORDER 
XXCM ) *0UM4 (M )*0UH5 CM ) 

C . SCALE  XX3.XX4.XX4.XX7.XX8  TO  DEGREES  FOR  PLOTTING  PURPOSES... 

C 

IP  (M.LT.3.0R.M.GT.8J  GOTO  580 
IP  CH.EQ.5)  GOTO  580 
222  XXCM)  a  XX CM) "5. 72440*0 l 
580  CONTINUE 
520  CONTINUE 
530  PORMATCSCU.n 


c - CREATE  OPTMATD  DATA  PILE - 

C 

C  CALL  WRMATOf  APIS.  8P 18.  CPIS  *  QP 18 .  TS.  IOROER  ) 

WRITEC4.444) 

444  PORMATI// IX. ‘RESPONSE  COMPLETE-OPMATO  ANO  OPTPLOT  DATA  PILE  CREATE 
■  0*  ) 

WRITE!*, 1000) 

1000  FORMAT! //IX. ‘TO  PLOT  RESPONSE  GO  TO  CONTROLS  EXEC.  SELECT  OR ACL S. 
"THEN  SELECT  OPTPLOT.', 

■/IX. ‘YOU  MUST  BE  AT  A  418  TERMINAL') 

4000  STOP 


SUBROUTINE  CMATML  (COMPLEX  MATRIX  MULTIPLICATION) 

COMPUTES*  YY  •  AA  •  88 
IA  a  •  OP  ROMS  IN  AA 

LL  a  »  OP  ROWS  IN  88  ANO  »  OP  COLUMNS  IN  AA 
IB  a  9  OP  COLUMNS  IN  88 

SUBROUTINE  CMATML ( AA . 88 . lA.LL. IB. YY) 

IMPLICIT  REAL'S (A-M. 0-2) 

COMPLEX* 1 4  aa ($5 . 55 ) . 88(55 . 55  J . VVC55 . 55 ) 

INTEGER  U.LL.tB 
00  SO  I  ■  1.IA 
00  20  J  >  I. IB 
YY(I.J)  •  (0.00.0,00) 

00  10  INOEX  a  l.LL 

YY(I.J)  a  YY(I.J)  *  AA(t. INDEX)  *  SBC INOEX* J ) 
CONTINUE 


SUBROUTINE  RANKDi  COMPUTES  REQUIRED  BLOCK  STRUCTURES  OP  SVO 
OP  -BS-  FOR  USE  IN  EIGENSTRUCTURE  ANALYSIS 
COR  V.P.  OAVITO 
JUNE  1484 

MOTE i  RZINVC  IS  MOT  BEING  COMPUTED  !!! 


S  UBR  OUT X NE  R ANKO (  BS .  UT .  S .  N .  M .  UO  TC .  U 1 TC .  R  Z I NVC . I R A NX . 80 1 ) 
IMPLICIT  REALMS (A-H.O-Z ) 

REAL'S  BSC55 .55) »SC55 ) .SMC55.55) .RZC55.55 ) .RZIMVCSS.S5 )* 


192 


1  U(SS.S5).UT(3S.5S).VTC5S.S5).SI(SS).MK(50>.SHI(55.55).HAREA{200) 
2.S0tC5S.SS).t3m5S.S51 

COMPLEX"!*  RZXMVCC55.5S).U0TC(5S.55).UlTCC5S.5i) 

INTEGER  N»M.  IRANK 
in AUK  m  M 

00  l  X  •  1.55 
00  1  J  ■  1.55 
tOUl. 4)  •  0.00 
R2CI.J1  •  0.00 
RZIMV( I >4 )  •  0.00 
UOTCCt.J)  ■  (Q. 00. 0.00) 

UlTC(l.J)  «  (0.00.0. DO) 

RZINVCII.4)  *  (0.00.0.00) 

UCI.4)  *  0.00 
SN(t.J)  *  0.00 

SMia.j)  *  o.oo 

1  VTCt.J)  ■  0.00 

DO  2  I  «  1.50 

2  MKCI)  •  0.00 

00  S  \  ■  I'M 

IF (SCI ).OT. 0.00) GOTO  5 

IRANK  •  I-l 

GOTO  * 

5  CONTINUE 

4  00  50  I  ■  1.  N 

00  SO  4  •  l.N 
30  U(I.J)  *  UT(J.I) 

DO  40  I  •  l.N 
00  40  J  •  l. IRANK 

40  uorccj.n  ■  ocmpux(U(I.4).o.oo) 

DO  50  I  »  l.N 

00  50  J  •  IRANK  ♦  l.N 

50  UlTCCJ-IRANK.I)  -  0CMPLX(U( I . J ) .0 .00 ) 

C  00  «0  I  ■  l.N 

00  40  I  ■  1. IRANK 
OO  £0  4  *  l.N 
<0  VTCI.J)  .  SSCJ.I) 

OO  70  I  «  l. IRANK 
70  SM(I.I)  •  $(I) 

CALL  VMULFF(SH.VT. IRANK. N. N. 55. 55. R2. 55. IER) 
C3999S993SSS99S39$33N0TEt  RZINV  IS  MOT  C0MPUTED339939S3S33$939$39SS33SS 
C 

C  CALL  LOINF(RZ.IO.IRANK.N.TOL.RZINV.IO.SI.WK.IER) 

C 

C9333999 999333399933 93 93 9 9 393 9 3933333 33 933399339333333 993 3 933 93 393 93 33 S3 
00  5001  I  «  l. IRANK 
3001  SHI ( I  *  I )  •  l.DO/SMCI.I) 

CALL  VMULFFCBS.SHI .N. IRANK . IRANK .55 . 55 .RZINV .55 . IER ) 

00  SO  I  •  l.N 
DO  SO  4  •  1. IRANK 

SO  R2INVCC 1.4)  •  DCMPLX (RZINV ( I . J ) .0 .00 ) 

CALL  VNULFF ( BS . SM I .M. IRANK. IRANK. 55.55. 8SN.S5. IER) 

CALL  VNULFF ( BSN . UT . H. 1RANK.N.5S <55 • SOI .55 . IER ) 

RETURN 

END 


Cmhrmmimmmim***  SUBROUTINE  WRNATD  *n*******nnmn»mfnn*nmm»mm*n 

C 

C  HR NATO  MRITES  THE  * AF1B* .  *BF1S‘ .  ‘CF18*.  ANO  '0F1S* 

C  MATRICIE3  TO  THE  OPHATO  DATA  FILE.  EXTRA  NULL  NATRICIES  ARE  ALSO 
C  CREATED  ANO  STOREO  TO  CONFORH  TO  THE  OPMATO  OATA  FILE  STRUCTURE. 
C  THESES  NATRICIES  ARE  THE  ‘OAMD*.  ’FD*.  * FK* .  •00’,  * RD* .  *Vl*. 

C  ’ V2* .  ANO  ’SO’. 


SUBROUT INC  HRNATD ( AO . 80 . HO . 00 . OELT . I ORDER ) 
INFLICIT  REAL-S <A-H. 0-2) 

C 

C  FIS  SYSTEM  NATRICIES 
C 

193 


c 

c 

c 


DIMENSION  AO(SS»5l ) .00(55 •!) .HD! 14.55 ) .00(14.!) 


B 


emu  natm rexes  required  in  ofmato  data  file 


DIMENSION  FD(5S.S).FiaS5.14).G0(i4.U).R0(J.S>.V2(14.l4).SD(5S.14) 

c 

OIHCNSION  ^0(2  )  *NFK(2  )  »MQ0(2  ) .NR0(2  ) . NV2(2  ) »NS0(2 ) 

integer  i order 

C -  CREATE  NULL  MATRICIES  TO  BE  STORED  ON  OP HA TO  - 

NFDUUS 

nPD(S)*IORDER 

nfk(d»:order 

^*KC2  )•  14 
NQ0U)*14 
NQO(S )»14 
NROCl )•! 

NR0!2)*S 
MV2(U*14 
MVS (2 1*14 
MSO( 1 )■ IOROER 
NS0(2 1*14 
C 

CALL  NULLCPD.NFO) 

CALL  NULL(FK.NFK) 

CALL  NULL (00. NOD) 

CALL  NULLCRO.NRO) 

CALL  MULLCV2.NV2) 

CALL  NULLCSD.NSO) 

C - WRITE  HATRICIES  TO  OPMAtD  DATA  PILE - - - — 


I  ■  0 


IANS  •  1 
IDOPTO  •  I 
WRITE! !• ISO ) 
WRITECS.120) 
WRITE! !•  LSI) 
WRITE!! • ISO ) 
WRITE! S • 132 ) 
WRITE!!. 150 ) 
HRITCIS.1SS) 
WRITE!! • ISO  I 
WRITE!!. 155) 
WRITE!!. ISO) 
WRITE!!. 1S4) 
WRrE!S.l!0) 
WRITE!!. 1S7) 
WRITE!!. ISO) 
MRlTeU.lSt) 
WRITE!!. ISO) 
WRITE!! • 134 ) 
WRITE! S . ISO ) 
WRITE! S* 141 ) 
WRITE!!. ISO) 
WRITE!!. 142) 
WRITE!!. ISO) 


I . IANS. IDOPTO 
IOROER. S. 14. 0,1. CELT 

( (AD! I.J).J*l. IOROER). 1*1. IOROER) 

(l loa. 4). J*I.SI.I*1.  IOROER  1 

( (HO! I. Jl.Jal. IOROER 1.1*1. 14) 

<(PD<i.ji.j*i.roRoeRi.r*i.s) 

(!PK!I.J).J«1.14).I«1. IOROER) 
!!0O!l.J).J*l.SJ.I-l.I41 
( (00(1 .J).J*1.14). 14 ) 

!!RD (I. U).J*1. !)•!*!•!) 
!(VS(I.J).<J*  1.14  ).!•!. 14) 

( (SO! l.J).J«l. !).!■!. IOROER) 


C- 


120 

FORMAT(SIS.5X.FI0.5) 

ISO 

FORMAT ( 4020 . 1 S ) 

IS! 

FORMAT! IX. 2HA0) 

152 

FORMAT (1X.2HB0) 

IS! 

FORMAT! IX. 2HH0) 

1S4 

FORMAT! IX.4H0AM0 I 

1SS 

FORMAT (IX. 2HFD ) 

ISO 

FORMAT (IX. 2HFK ) 

1ST 

FORMAT (IX. 2HOO ) 

ISO 

FORMAT! IX. 2MQ0) 

ISO 

FORMAT! IX. 2HRD 

140 

FORMAT  UX.2HV1) 

141 

FORMAT ( IX . 2HV2 ) 

142 

FORMAT! IX. 2HS0) 

194 


I 


iso  po*MAT<n.sx.n»sx.in 

RETURN 


CNO 

eiM>iiMMi«»Maa>RaiR«Ht»a»M*aHHM«tR«aMMaaHaMi 

C 

C  SUBROUTINE  SROOTi  CONVERTS  Z- PLANE  ROOTS  TO 

C  S-RLANE  ROOTS 

C 

C  COR  V.P.  QAVITO  JULY  lf|i 

C 

. . a . a . . . . . . 

SUBROUTINE  SROOTIZ.h.S.T) 

IMPLICIT  0€AL"8(A-N.{>r) 

COMPLEX’* l  6  ZIS5  ) .  3(55  ) 

INTEGER  N 
00  10  I  •  1  *  N 

rs  •  oiMAocrun 
RC  ■  OREALCZCUJ 
B  •  (0ATAN2(R3.RCn/T 
R2  ■  CDA8SCZC in 
A  •  -DLOGCR2 )/T 
S(XI  •  DCMPLXC-A.B) 

10  CONTINUE 

RETURN 


APPENDIX  E 
ERSPACE 


. . . 

C  ERSPACE:  TESTS  IP  DESIRED/ UNDAMAGED  SLOW  RIGHT  EIGENVECTORS 

C  ARE  MEMBERS  CP  'HE  DAMAGED  RIGHT  HAND  null  SPACES. 

C  AND  WRITES  DATA  PILE  POR  USE  8V  ELSPACE 

C 

C  CDR  V.P.  GAVI TO 

C  JULY  1 *94 

C 

C  PILE  01  •  ERSPACE  DATA 

C  (READ) 

C  PILE  OS  •  ELSPACE  DATA  (LEFT  EIOCNSPACE  DATA) 

C  (WRITE) 

. . . . . 

implicit  real*R(a-h.o-d 

DIMENSION  A(5S.55).RESRt24).CT(53.5S).WA(5S) . UNITY(55 .55 ) 
COMPLEX- 14  XC55.5*).E(33).XS(55.53).T(55.35).TSLOW(35.24) 
COMPLEX- 14  UITC(55.55) .AML(S5.55).EIG0(24) ,VD(S3.24).Z1.V(55.24) 
COMPLEX- 14  UNITYC(55 .S3 ) .RNULLC(53 .53 ) .WV(55 ) .WVIC(S5> . 

I  RES(43. 24 ). £SLOW(24 ) .XSLOWt 53.24 ).Z2 

REAL-4  $MV<110).VLBC110>.VUB(llO).G(l)'RA(ill'UiJ. 

1  WKJ ( -000 ) * ASINGCSS . 55 ) . CTSING(35 . IB ) >ERS .CCS • XRS  >  XCS . 

2  TRS.TCS.URS.UCS 

COMPLEX-9  E3ING( 24 ) . TSLING(S3 >24 ) . XSL IMG (S3 .24 ) ■ XSINGC55 • S3 ) 
COMPLEX-9  EING(35).U1BT(53.5S) 

INTEGER  MI -MI . IELE. IWK(1000 ) . IC( 1  Iff ) . IDOC1) . IV. IRANK. IROW(53.24 ) 
INTEGER  DP( 1 11 ) , I3TATE(55 ) .KSTATE (55 ) . IRONS. <P AST . IARB(55 ) . IUCT1 
C 

c - READ  PILE  01  (ERSPACE  DATA) - 

C 

READ (I . 2 ) IROWS .KPAST . | RANKB , I RANKC 
RCADt 1 • 3 ) (E( I ) .1*1.53) 

RCAD<l'3)<(XCZ.J).J«l'5S)'t>l.SS) 

READCI.4)(ISTATE(I). I- I . IROWS) 

READtl .4 ) (KSTATE< I ) . I- l .KPAST) 

READ! 1.3) (ESLOW( X  IRONS ) 

REAO ( 1 . 3 ) ( ( XSLOW ( I .  J ) ,  J  - 1 . IROWS ) , I • l . 55 ) 
REAO(1.3)(CA(I.J).J«l,55).I-l.SS) 

READ( i >2 ) 1UB1 

READ (l.3)((UlTC(IfJ).J-ItSS).I-l>:UBI) 

READU.JXCCTd.J).  J-1,29).  1-1.53) 

2  PORMAT (4 12 ) 

3  P0RMAK4D20. 13) 

4  PORMAT (40 12 ) 

5  PORMAT ( 4E l 2 . 5 ) 

C 

c - INITIALIZE  CONSTANTS - 

C 

CALL  PRTCMS ( *  CL3SCRN  •) 

N1  >  53 

TSTCP  ■  I.25D-02 
DO  4  I  -  1.N1 
DO  4  J  •  1  .Ml 
AStNG(I.J)  •  SNGL ( A( I .  J  ) ) 

UNITV(I.J)  ■  0 . DO 

4  UNITVC(I.J)  >  OCMPLXC 0.00.0. DO) 

DO  10  I  -  1.N1 

UNITV(I.I)  >  l .DO 

UNITVC(I.I)  -  DCMPLX ( 1 . DO . 0 . DO ) 

DO  10  J  •  1. IROWS 


tCOMjQ  ■  0 

c 

C - D1**LA  V  SLOW  EIGENVALUE  I  NO  l  CSS  POR  ARBITRARY  ELEMENT- 

- - - - — SELECTION- . . . . 

c 


11 

12 

C 

C4 

C 

c 

cs 

c 

c 

c — 
c 

c 

cs 

c 

C* 

c 

c 

IS 

170 


Si 

44 

57 
54 

58 

C 


74 


C 

C 

c»» 

c 

c 

c 

c 

C*" 

441 


C — 
440 
100 
c»»< 
c 
c 
c 

c«»« 

442 


NftlTEU.U) 

FORMAT(/5x. * INOICES  OP  SLOW  EIGENVALUES  ■■■•*./) 

WITC(4.l2)CISTATf(n.I.l,lR0ws) 

P0PNATC*(2X,12.2X)./) 

M27C(  4  •  14 1 

FORMAT  C/5X. ' »***  ENTER  no.  OP  ARBITRARY  EIGENVECTOR  •••■*. /5X, 

1  **»»"  POP  AOS. 

RCA0( " -2 )  TELE 
HR  I TE  ( 6 . 1 3  )  I ELE 

PORHAT(/5X. ENTER  ROW  NOS.  OP  THE  *.I2.*  ARBITRARY 
1/5X.  *•••*»  ELEMENTS  IN  12  FORMAT.  «•■»•./) 

REAOC ■ .4 1 C IAR8( Z ) . I«1 , IELE) 

FOR  RECR2S  THERE  ARE  27  ARB  ELEMENTS  NOT  INCLUO  STABS - 

IELE  »  34 

IELE  •  27 
DO  13  M  *  1.28 
IAR8(M)  •  m  ♦  8 
DO  14  M  -  24.34 
IAR8CMJ  ■  M  ♦  4 
IARBC3S)  -  45 
IARBCS4)  •  47 

DO  13  M  •  1.27 
IARB(H)  •  MM* 

DO  55  I  •  1 i IRONS 

21  •  ESLOW(I) 

DO  54  J  «  I. Ml 
00  54  K  •  1.N1 

AML(J»K)  •  DCMPLX(A( J.K) , 0.00 )  -  21 »UNITYC( J .K ) 

IY  •  IUB1 

CALL  CMAT^CUITC.AML.IV.NI.NI.RNULLC) 

DO  57  J  *  1.N1 
«V(J)  ■  vu.p 

CALL  CMATHLtRHULLC.WV  .  tY  .M\  .WTV\C) 

OO  58  J  •  1.IV 
RESCJ.H  •  WVICCJ1 

PINO  2-NORM  OP  THE  RESIDUAL 
Y  •  0.00 
DO  74  J  «  l.IY 

Y  •  Y  ♦  0REAL(RES( J* I ) )**2*  OIMAO(RES( J. 1 1 )««2 
R08J  ■  OSORT(Y) 

RCSRCI )  ■  ROBJ 

IP  2-NORM  op  RESIDUAL  is  OR  —  JUMP  OUT 
IPCR08J .LE. 1 . 00Q  JOOTO  55 
GOTO  55 


IP  EIGENVALUE  IS  COMPLEX.  THEN  PERPORM  THE  OPTIMIZATION 
X  TIME  POR  BOTH  The  EIGENVALUE  ANO  its  CONJUGATE. 


IPfOIMAOf 21 1 .EQ.Q . 00 100T0  440 
IP( ICONJQ.EQ. 1 )GOTO  47 
ICONJO  -  1 

- INITIALIZE  ARBITRARY  CLEMENTS  (PAST  ELEMENTS) _ 

00  too  II  •  l.ICLC 
IROWdl.n  ■  IARBC!) 


SET  UP  POR  ADS  OPTIMIZER  CALL  IN  StMOLE  PRECISION  POR  RESIDUAL 


SR08J  •  SnOL(ROBj) 

INFO  •  0 
ISTRAT  .  0 


197 


3 


.  12. *  J  :  •  ■ -E12.5. IX. 

•  .E12.5* iX*E12.S* ' J‘ •  /  5  X  * 


v 


k 


i 


100* 

1005 


lots 

1004 


101* 

100« 


1005 

1007 

1010 


101 1 

1020 


1017 

1012 


1013 


101* 


1029 
C— • 
C 

c 

102* 


xopt  •  i 
loneo  -  t 
NOV  •  2«N1 
NCON  •  0 
I Oft AO  ■  0 
IPRINT  •  1000 
NOT  •  0 
NRA  •  59 
NCOLA  -  110 

CALL  SftOOT (21 . 22 • TSTEP 1 
WRITE (4.9631I.21. 22* I STATE ( I 1 
FORMATC/5X. * »»•»  ENTERING  AOS  *OR  £SLOWC* 

1  £12.5*  ‘  J  *»•*•  ,/5X. *»*••«*•  .28X.  *3  * 

2  ««»  UNDAMAGED  EIGENVECTOR  nO.  '  .  1 
SET  8  CMOS 

ask  avowed  tolerance  on  oesign  eigenvectors 
IFC IELE.EQ. 0 1GOTO  1007 
WRITE!*.  10031 

FORMAT (/5X. ' »■■■  ENTER  REAL  UPPER  BOUNO  OF  ARBITRARY  ELEMENTS  •■■■ 

i*./9X.  IN  "712.5"  FORMAT.  ENTER  “l"  FOR  NO  BOUNO.  »■*■') 

REAO(». 1020 1UR 

IF(01MAG(Z1 l.NE.0.00 1GOTO  1015 
UC  •  0. 

GOTO  101* 

WRITEC*. 100*1 

FORMAT ( /5X. ' *"•»  ENTER  IMAG  UPPER  BOUNO  OF  ARBITRARY  ELEMENTS  •■■■ 

1 ' . /5X.  •■•mi  IN  "F12.5-  FORMAT.  ENTER  "1"  FOR  NO  BOUND.  . . 

REAOC". 1Q201UC 
IF(UR.n€. l.E*0* JGOTO  1004 
UR  •  0 . 1E*21 

ZF(UC.NC.l.E*04  JGOTO  1005 
UC  •  0. 1E*21 
IFC  IELE.EQ. NUGOTO  1015 
wftITE(«.1010) 

FORMAT ( /5X . * ENTER  ALLOWED  EIGENVECTOR  TOLERANCE  IN  ”*12.5"  «0 

1RMAT  »/SX*'"»«»  FOR  THOSE  EIGENVECTOR  ELEMENTS  /5X. 

2  WHICH  ARC  NOT  ARBITRARY.  •*»•*./) 

WRITE!** 1011 ) 

FORMAT ( 9 X. ' ENTER  TOLERANCE  ON  REAL  PART  ■■■«•./) 

REAOC*  *  1020 1EPSR 
FORHAT(F12 .9 1 

IF(OIMAO(211.nC.O.DO)OOTO  1017 
EPSC  ■  0. 

OOTO  1013 
wRITEC*. 1012 ) 

FORMAT ( 5X. •»•»*  ENTER  TOLERANCE  ON  XMAQ  PART  ««*«•./) 

READ! «. 1020 1EPSC 
CALL  FRTCMS( ‘CLRSCRN  ’) 

JJ  •  0 

00  77  J  •  l.NDV-1.2 
JJ  ■  JJ  •  1 
KP I NO  *  0 

IFC IELE.EQ. OlOOTO  102* 

00  1029  K  *  l.IELE 

IFCJJ.NE. IROW(K. I ) 100T0  1025 
KFINO  ■  1 
VUtCJ)  •  UR 
VU8CJM1  ■  UC 
VL1CJ)  •  -UR 
VL8CJM  )  ■  -UC 
CONTINUE 

- NOTE  I  PRESENTLY  THE  ENTIRE  VECTOR  IS  ALLOWED  TO  VARY  BY  AN - 

AMOUNT  EQUAL  TO  EPSR.EP3C.  INPUT  EPSR«£PSC*0 . OOCURRENTLY 
1FCKFIND.EO. 1 1GOTO  1027 
XX  ■  OREAL(XSLOW( JJ. I J) 

YY  «  OIMAO(XSLOW(JJ. I  1) 

VUS(J)  •  SNOLCXX)  ♦  CP SR 
VUtCJM)  •  SNOLCYV)  ♦  EPSC 
VLBCJ)  •  SNOLCXX)  -  CP SR 
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% '  V'  • 

•.Vxv. 


»V.v.v. 


vlbi j«i  i  •  snoliwi  -  exsc 

1027  XI  •  0REAL(MV(JJ)> 

VI  •  OIKAO(WV!JJ)) 

SMV(J)  •  SNOL(Xt) 

SHVU’l)  a  SNOL(VI) 
tC(J)  a  0 
IC(J*1]  a  s 
DX(J)  a  0 
DX! J»1  )  a  0 
'7  CONTINUE 

«  CALL  AflS!  t)#0.  ISTAAT. IOPT .  IO«D.  IXAInT.  IGRAQ.NOV.NCOn.SWV.VLB. 

1  VUB.SROSj.G.  IDO. NOT .  IC.OX.RA.NRA.NCOLA.WX5. 7000.  INK.  1000) 

JJ  «  I) 

OO  ’8  J  a  I  .  NOV-  l  . : 

jj  *  jj  ♦  : 

NV(JJ)  a  CMPLX(SWV(J).SWV(J.m 
•  V(JJ.I)  a  UV(JJ) 

IX C INXO.EQ. 0  JOOTO  54 
REEVALUATE  OBJECTIVE  X UNCTION 

CALL  CMATML ! RNULLC » WV  *  I V ■ N1 • 1 , WV 1C ) 

DO  82  J  a  1 , IV 
2  RES(J.I)  a  WV1CCJ) 

V  a  0.00 
DO  S3  J  a  1 . IV 

5  v  a  V  •  OREALCRESC J. I  1 jaaj  .  OIKAC IRES ( J . 1 1 1 aaj 
ROBJ  a  OSQRTtv) 

RESR(l)  .  ROBJ 
SROBJ  a  SNOLlAOBj) 

CONTINUE  WITH  AOS  OPTIMIZATION  (MINIMIZING  ROBJ) 

OOTO  8A 

I  MR  I TE ( a . 75 1 ROBJ . I 

1  . . OBJECTIVE  XUNCTION  VALUE  a  '.£10.3.'  . . 

1  .  *OR  EIGENVECTOR  NO.  '.12.' 

ix(oimao(Z1).eo.o.oo)ooto  55 

IX t ICONJO.EO. 1 )OOTO  55 
’  DO  78  X  a  l.Nl 

ICONJO  a  0 

1  xslom(k.;i  a  ocomjo(v(k. t-m 

CONTINUE 

OISPLAV  RESULTS  OX  <UlT<<A-LAMOHAa I>>«OE5IREO  BASE  EIGENVECTORS— 

CALL  XRTCMSC  *  CLRSCRN  ') 

WRITE! 5 . 55 ) 

. .  THE  XOLLOHINO  VECTOR  OISPLAVS  THE  NEARNESS  OX  a 

laaa-./SX.  ■ a...  Each  SLOW  EIGENVECTOR  TO  THE  ALLOWABLE  RIGHT 

/SX.  a...  HAND  SLOW  EIGENSPACE  XOR  THE  DAMAGED  X 18  MODEL. 

3a««  * ./) 

WRITE! 5. 50  MRESRC I ) .  lal .  IRONS) 

XQRMAT(ZX. 020 .131 
WRITE! 5 . i5g  ] 

)  XORMATC/SX. ■ aaaa  ENTER  "l"  IX  RESIDUAL  IS  UNSAT  TO  RENTER  AOS  aaaa 

1  ' . /SX .  'aaaa  ELSE  ENTER  "0".  .. 

2  •./) 

REAO! a .155] I0PT 
i  XOR  MAT  (ID 

CALL  XRTCMSt 'CLRSCRN  •) 

IXdOPT.EQ.O  )OOTO  150 
DO  153  J  a  1. IRONS 
DO  155  I  a  1.55 
XSLOWII.J)  a  VU.JI 
OOTO  170 

00  73  X  a  1. IRONS 

DO  73  J  a  1,55 
XX  •  ISTATE(X) 

XIJ.XX)  a  VCJ.X) 


- PINO  LEXT  HANS  EIGENVECTORS— 
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DO  17S  I  a  l.SS 

DO  17$  J  •  l.SS 

XSU.J)  •  XC.JJ 

CALL  LEQT1CCXS.5S  >S5 .UNITYC.55 .55 .0  >MA. ICR ) 
DO  ISO  I  •  l.SS 

DO  180  J  -  l.SS 

T(J.l)  •  UNITVCl 2 . J ) 

RCINIT  UN1TVC 

DO  181  I  a  1.N1 

00  181  J  »  l.Nl 

UN IT VC( I  * J )  a  OCMPLXCUNlTV(I.Jl.Q.OO) 


-SUILC  SLOW  LEFT  hand  £ I 3EN VECTOR S- 


00  185  J  a  l. IRONS 
00  185  I  a  l.SS 
KK  a  S STATE (J 1 
TSLOM(I.J)  a  T(X.KK) 


- WRITE  FILE  08  FOR  USE  Bv  ELSPACE  IN  SINGLE  PRECISION— - 


MRITCC4* 198 ) 

F0RMATC/5X.  *  *aa»  WRITING  ELSPACE  DATA  FILE  08  *■■ 
DO  190  t  ■  l.SS 
£R  •  OR£al(E( 1)1 

ec  ■  aiMAQtEun 

ERS  •  SNGLCER) 

ECS  •  SNGLCEC) 

EINGCI)  •  CMPLXCERS.ECS1 
00  190  j  -  1 . 55 
XR  ■  OREAL(XU.J)) 

XC  •  DIMAG (X(  X • J ) 1 
XRS  ■  SNGL(XR) 

XCS  •  SNGLCXC) 

XSINGtl.Jl  «  OMPLX ( XRS . XCS ) 

ASINOtJ.O  •  SNGL(ACJ.K)) 

00  195  J  •  1.55 
00  195  <  -  1.18 
CTSINGCJ.O  •  SNGLiCT(J.K) ) 

00  194  l  •  l, IRONS 
ER  •  DREALtESLOWtD) 

EC  •  OIMAGCESLOWCI ) ) 

ERS  •  SNGLCER I 
ECS  ■  SNGLCECJ 
ESINO(I)  ■  CMPLX(ERS.ECS) 

00  194  J  *  1.55 

TR  «  OREAL ( TSLOW <  J  .  I  )  ) 

TC  a  0 1 MAG  t  TSLOW ( J . I ) ) 

TRS  •  SNGL(TR) 

TCS  ■  SNGLtTCl 

XR  a  OREAL CX5L0WC J. II  ) 

XC  •  D I HAG ( XSLOW ( J . I )  ) 

XRS  ■  SNOLCXR 1 
XCS  ■  SNGLCXC) 

XSLINO(J.I)  a  CMPLX(XRS.XCS) 

TSLINOCJ.I)  a  CHPLX ( TRS » TCS 1 
DO  197  I  •  1.IUBI 
DO  197  J  a  1.55 
UR  •  DREALCUlTCCI.jn 
UC  a  DlMAGtUlTCC I.JJ1 
URS  a  SNGL(UR) 

UCS  a  SNGL(UC) 

UlBTtl.J)  a  CHPLX(URS.UCS) 

NR  I TE ( 8 . 2 ) I ROWS • I UB l 
HRtTE(8.4  HlSTATEt 11. lal. IRONS) 

WRITE(8.S  HESlNGt I ) . 1*1 . IRONS  1 
NR ITE(8.S)( CASING t I. J) .Jal .55). I -1 .55 ) 
WRITE(8.SHCTSLlNCCl.J),Jal.  IRONS),  la  1.55) 
MR I TCI 8 .5 J 1 (XSLINOC I • J ) . Jal , IRONS l.Xal.SS) 


a"«  * 


WftlTE(t.SmCT3lNO(l'j).J>l.lt).I-l’S5) 

M*XTECt.S)CC!NQCI).l-!.SS) 

HR  ITE  (• .  5  )  ( (XSINQI jal«IS )#!■!» 5S) 
WRITE(8»S)((Ul8T(I,J),j«I,55).l*t« IUBI 1 

ii  3 TOR 

ENO 

. . . . . 

c 

C  SUBROUTINE  CMATML  (COMPLEX  MATRIX  MULTIPLICATION ) 

c 

C  COMPUTES s  W  •  aA  »  B8 

C  IA  -  S  OP  ROWS  IN  AA 

C  LL  •  *  OR  SOWS  IN  BB  AND  •  QF  COLUMNS  IN  AA 

C  IB  •  m  OF  COLUMNS  IN  3B 

. . . . . . . 

SUBROUTINE  CMATML ( AA • 38 • I A • LL • 18. YV) 

COMPLEX" 1 i  aa (55. 555, 88 (55. 55). vy (55. 55) 

INTEGER  Ia.lL-IB 
00  30  I  •  l.IA 
00  20  J  •  1.18 
VYd.JJ  •  (0-00. 0. DO) 

00  IQ  INDEX  -  l.LL 

YY(I.J)  •  YV(J,J)  ♦  AAd. INDEX)  *  88(INDEX,J> 


10 

CONTINL 

20 

CONTINUE 

30 

CONTINUE 

RETURN 

END 

. . . 

c 

C  SUBROUTINE  SROOTi  CONVERTS  2-PLANE  ROOTS  ’0 

C  S-PLANE  ROOTS 

C 

C  CDR  V.F.  OAVITO  JULY  lf8« 

c 

. . . . . . . . . . 

SUBROUTINE  SROOT(Z.S.T) 

IMPLICIT  *€al»%(A-h.P-Z> 

COMPLEX" 14  r.3 
RS  •  OIMAO(Z) 

RC  ■  DQEal(Z) 

8  •  (DATAN2(RS«RC) J/T 
R2  ■  CDABS(Z) 

A  i  -OLOG(R2)/T 
S  •  OCMPLX (— A . 8 ) 

RETURN 

END 


APPENDIX  F 
ELSPACE 


ELSPACE:  ’’ESTS  IF  RT/LT  SLCW  '.EFT  eigenvectors 

RESULTING  FROM  ERSPACE  OPTIMIZATION  ARE  MEMBERS  OF  tME 

damaged  null  spaces. 

NOTE:  COMPUTATIONS  ARE  IN  3 INGLE  PRECISION 

CDR  V.F.  GAVITO 
NOVEMBER  1986 


FILE  01  ■  ELSPACE  DATA 
(READ) 

FILE  IPASS  «  ADSDAT  DATA  OR  XSLOW  DATA 
(WRITE  OR  READ) (WRITE) 


file 

QA 

a 

LRES  DATA 

(WRITE  UNDAMAGED)  (REAL 

DAMAGED ) 

FILE 

07 

a 

NULL  DATA 

(READ) 

FILE 

08 

a 

OPTEIG  DATA 

(WRITE) 

FILE 

09 

a 

SEGEIGl  DATA 

(SEGMENT 

1 

DESIGN 

DATA) 

FILE 

10 

a 

3EGEIG2  DATA 

(SEGMENT 

2 

DESIGN 

DATA) 

PILE 

11 

* 

3E3EIGJ  DATA 

(SEGMENT 

I 

DESIGN 

DATA) 

(WRITE) 

NORMS 

RE3RS( )/RESLS( )  » 
RESR2I )/«ESL2()  • 
RESR 1 ( I/RESL1 ( )  • 
REINFRU/REINFLC  ) 
INFNRR (  )/lNFN«L( ) 
EL UNO ( )/ELDAM( )  - 


SUM  OF  VECTOR  COMPONENTS  (COMPLEX) 
2- NOR MS  (REAL) 

1-NORMS  (REAL) 

■  INFINITv  NORM  (REAL) 

•  ROW  NUMBER  OF  INFINITY  NORM 
LEFT  NULL  RESIOUAL  VECTORS 


DTNORMO  ■  2-NORM  OF  DIFFERENCE  BETWEEN  LEFT  EVECTORS 


IMPLICIT  REAL* A ( A-H . 0“2 ) 

REAL *6  LTEST 

DIMENSION  A (55. 55  )  .CT(55 .55  ) . WA (55).JNITY(55*55). DTNORM ( 2 A ) 
DIMENSION  SCT ( 55 ) . WKCT ( 1 1 0 ) • UCTT( 55 .55 )  RE3R2(2A ) .R6SL2(2A) 
DIMENSION  G( 1 ) .DF( I n ) .RA( 111 .222 ) . WK ( 1 0000 ) . XX ( l 1 1 ) • VU8 (111 ) 
DIMENSION  VL8( 1  I  1 ) .RESR1 (2A ) .RESLI (2A ) . RE  I NFR ( 2A ) . RE IN*L ( 2 A ) 
COMPLEX "8  TSLOWC55 -2A ). AML (55. 55 ) . UNI TYC ( 55 .55 ) . UCT1 TC ( 55 • 55 ) 
COMPLEX-8  X3LOW(55.2A).U8lTC(55.55).R£SR(2A).RESL(2A) 

COMPLEX -8  UCA(55 .55).LNULL(2A. J7.S5) .LOBJ(55).ESLOW(2A ) 

COMPLEX-8  U8A( 55  *55  ) • RNULL (2A, 45*55) . ROB J ( 55 ) . E ( 55  )  .X(55.55) 
COMPLEX-8  ATML(55.55) .WVL (55) .NML( 55.55 ).T( 55.55 ).XS(55. 55) 
COMPLEX-8  WVR(55 ) .NMR( 55.55 ) .RR.RL. 21 .22 .23 -24 .25 .ROT.SCHG 
COMPLEX-8  RUNULLU  .A5. 55). LUNULLU  .37.55  ).XT(55. 55).  XSAVE  (55.55) 
COMPLEX-8  RESRR ( 2A  )  .RESLLC  2A  ) . 38 JC . 25 A .RE3RS(2A ) . RESLS C2A ) 
COMPLEX-8  ELUND( 37 .2A ) .ELOAM( 27 -2A ) • D IFF (2A ) 

COMPLEX-8  TDES(55.2A).DT(55) 

COMPLEX- 14  ED (55 ) .XDC55 .55 ) .EDR (55 ) .XDR(S5 .55 ) 

REAL -8  DR. DC 

INTEGER  IRONS. IRANCT . IUB1 . IDG( 1 ) . ICC  1 ) . I WK(1200 ) . 10(8 ) . ISTATE(55 ) 
INTEGER  INULL. I  ARB (55 ) . ICHG. IMP . IADS. ISEG. I EEN . II  MAG . I RECHX 
INTEGER  INFNRR(2A) . IFFNRLC2A ) . IUNO 

- INIT  COMPLEX  MATRICES - 

DO  400  I  •  1.55 
DO  400  J  •  1.55 
UCT1TCU.J)  •  CMPLXCO.  ,0.  ) 

UBi  TC(  I  .  J  )  •  C--PLM(0  .  .0.  ) 


UtA(l.J)  •  CMP|_X(0..0.  ) 

ucau.j)  .  cnrlx(o..o.i 
COMTIMt* 

- *e*o  file  01  (elsface  data) - 

REACH  .2  )  IRONS.  IUB1 

REACH  .<  IUSTaTEI  I ) .  1.1 .  mows ) 

REACH.  JHESLOMU  ).!•!.  IRONS  I 
REACH.  JlUAU.Jl.J.l. 55  >.1-1.55) 

READ! 1 .  J  HCTSLONl I .J) .J«l , IRONS) ,1-1.55) 
READ!  1,!U  (XSLOWC I . J  1 .  J.  1 .  IRONS  ! .  I « 1 . 55  1 

REAOu.jmcTd.ji.j-i.iai.i-i.ss) 

>EADU.  JHEH),  1-1.55) 

READ! 1.: )( (X( I. Jl.J- 1.551. 1-1.55) 

REACH.  j)((USlTCCI.J).J.  1.551.1*1.  [USD 
F0RMAT14II) 

FQRHAr(4E12.5) 

FORMAT (4010 ) 

FORMAT (XI 1 

- INtT  CONSTANTS - 


y» 


T3TEP  s  0.0125 
INFO  .  0 
ITER  «  0 
I AOS  •  0 

100(1)  a  0 
0(1)  a  0. 

iccn  •  o 

(NULL  *  0 
ICHO  >  0 
Z I MAO  •  0 

INULLC  ■  0 
INP  *  0 

irccnk  •  0 

tUNO  *  (J 
WEIGHT  »  0.01 
RLU  a  0. 

RLD  ■  0. 

RLRCAL  ■  0. 

IRAHCT  a  18 
00  5  t  a  1.55 
IAR8C1  )  a  0 

R08J( I )  a  CMPLXCO. .0. ) 
L08J(I )  a  CMPLX ( 0 « .0. ) 

DO  8  J  a  l . 55 
XSAVEU.J)  .  x(l.J) 

XS(I.J)  a  X(t.j) 

UNXTV(I.J)  a  0. 

UCTT(I.J)  .  0. 

UNlTVC(l.J)  a  CMPLX(O.O.O.O) 
CONTINUE 

00  «  I  a  1,55 

MCI)  -  6(1) 

UNI  TV (J,l)  .  i.o 
UNITVC(I.I)  a  CMPLX (1.0. 0.0) 
CONTINUE 

00  7  I  a  1,24 
RESRS(Z)  a  CMPlX(0..0.) 
*6SLS(I)  a  CMPLX(0..0.) 

RE3RR ( I )  a  CMPLXCO. .0. ) 

R6SLL(I )  a  CMPLXCO. *0. ) 
*63*2(1)  a  o. 

*6SL2(I)  a  0. 

*63*1(1)  a  0. 

*6$L1 ( I )  a  0. 

*6INF*(I)  a  0. 


JS5 


k%  -V  ■-  „>  , 


fttiNPun  •  o. 

itcsftd)  ■  cmj((o..o.) 
fttSLcn  •  cwjt(o..o.) 

00  7  4  •  1.57 
CLUNO'J.t)  ■  Ctnx(p.,p.) 

CL0AM(J.I1  »  CHPLXC0..0.1 
7  CONTINUE 

C 

c~ - - - save  DESIRED  SCON  LEFT  EIGENVECTORS  FOR  OPTIMIZATION- - 

C 

DO  640  I  a  l.SS 
00  6*0  J  -  1. IRONS 
*60  TCESI X »«  )  »  TSLOMd.JJ 

c 

C - FIND  OESIRED  left  EIGENVECTOR  MATRIX  T - 

C 

*20  CALL  LEOTIC(XS.55.5S.UNITVC.55.S5.0.MA. IERJ 
DO  9  X  •  1.55 
DO  t  J  >  1.55 
*  T(J,I1  •  UNITVCd.JJ 

c - REINIT  COMPLEX  IDENTITY  t  XS - 

DO  11  I  •  l.SS 

DO  11  J  -  1.55 

XSC.vM  a  CMPLXtO.  .0. ) 

U  •  UNITY! I. J) 

11  UNITYC(I.J)  •  CMPLX(U.O.Q) 

IFdRECHK.EQ.  0  1G0TQ  17 
DO  *<0  I  «  1.55 
DO  *A0  J  a  1. IRONS 
<K  »  I STATE! JJ 
*40  TSLONCI .JJaTCX.XK) 

GOTO  208 

c 

c - PINO  svo  OF  C*«T  ( DAMAGED ) - 

C 

17  DO  10  I  ■  1 .55 

io  ucTTd.n  ■  i.o 

CALL  L5VDF (CT.SS.SS.lt. UCTT .55.55. SCT . WKCT .  I ER ) 

DO  15  I  a  1.18 
I F ( SCT ( I ) . GT . 0 . 0 1 GOTO  IS 
IRANCT  a  1-1 
GOTO  20 
15  CONTINUE 

20  CALL  *RTCMSCCLRSCRN  M 

WRITE!*. It)! R ANCT 

1*  FORMAT ( /5X, 1 RANK (C**T 1  a  ’.ID.’  *»•»*./) 

DO  25  l  a  1.S5 

00  25  J  a  IRANCT  *  1.55 

UCX  a  UCTT ( J • I ) 

25  UCT1TC(J- IRANCT. I )  a  CMPCX ( UCX . 0 . 0 ) 

C — - - ANAL  ^  I S  I NPO- - - - - - - - 

WRITE!*. It) 

18  FORMAT ( /5X. ENTER  "1"  IF  PASS  IS  FOR  UNOAM  ANALYSIS  ■■*«*. 

•  /SK.'aaaa  ENTER  **0"  ELSE.  «■«■*./) 

READ! * .8 ) IUND 

xfuuno.eq.dooto  It 

RCA0!A . 5 H (ELUND ( I . J ) . J* 1 . 5 7 ) . Ia 1 . IRONS ) 

C 

c 

It  WRITE!*. 41) 

41  FORMAT ( /SX ENTER  "1“  IF  FIRST  FASS  THRU  CLSPACE  /SX. 

1  .  ENTER  PASS  NUMBER  OTHERWISE. 

RCAD(«.8)IPASS 

IF (IP ASS. EQ. 1 1GOTO  42 

READ! IPA3S. 2) IRONS. IFASSA 

READ! I FASS . 4 ) ( I STATE (X)»I*1» IRONS  J 

READ! IFASS.S)((X(I.J).Jal .55). I ■ 1.55) 

REA0(1PAS3.S)((T(I.J).U«1.55).I*1.5S) 
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READ  <  I P  ASS .  3  )  ( C  X  SL  OH  ( | .  J ) .  J  - 1 . 1  ft  OHS > .  I  •  1  *  5  5 ) 
READUPASS.  I  >UTSLON(l.J).J«l.  IRONS  ).!•!.  55) 
READ ( I F ASS . 3 J ( ESLOM ( II . I > J , I ROWS ) 


c 

c - ftCiMtT  c  af ter  elspace  execution— - 

c 

42  00  27  Z  *  1  *  IRONS 

II  •  ISTATE(t) 

£0(11)  •  ESLON(l) 

27  C( I Z  )  ■  eSLOHCI) 

c 

c - AC  IN  IT  xo  AFTER  ELSPACE  EXCCUTIOn - 

c 

20  23  l  •  t .55 
OO  28  J  *  1.55 

28  XD(I.J)  •  X(t.J) 

C 

c - FIND  NULL  SPACE  OPERATORS - 

C 

24  DO  SO  I  •  1. IRONS 

21  •  ESLOW(I) 

IFdCHG.EO.OJOOTO  34 
21  •  E(ICHO) 

34  00  35  J  •  1*55 

DO  IS  <  •  l.SS 
AR  •  A(J.K) 

ATR  •  ACK.J) 

AML(J.K)  •  CMPLX(AR.O.O)  -  21 «UNITVC( J ,K ) 

35  ATMLCJ.K)  •  CMPLXCATR.O.O)  -  21»UNITYC( J .K ) 

CALL  CmaThl(U81TC.anl. IUB1. 55.55. UtA) 

CALL  CHATMLeUCTlTC.ATML.55-IRANCT.55.55.UCA) 
00  3*  JJ  ■  1.IU81 

DO  34  KK  •  1 .55 

IF(ICMO.EO.O)OOTO  37 
RNULL(INULLC.JJ.KK)  •  UtA(JJ.KK) 

GOTO  34 

37  RNULL(t.JJ.KK)  «  UBA(JJ.KK) 

34  CONTINUE 

00  40  JJ  I  1.5S-IRANCT 

OO  40  KK  •  1.55 

IPCICMO.EO.OHJOTO  35 
LNULL(INULLC.JJ.KK)  ■  UCA(JJ.KK) 

GOTO  40 

35  LNULLd  .JJ.KK)  ■  UCA(JJ.KK) 

40  CONTINUE 

IF( ICHO.EO.O lOOTO  30 
21C  •  A I MAO (Cl) 

C2CHK  •  aBS(21C) 

IF(C2CMK.EO.O. JOOTO  208 
IFdNF.EQ.DOOTO  208 
21  ■  CONJOCZl ) 

INF  >  1 

INULLC  •  INULLC  •  1 
ICHO  -  ICHQ  ♦  l 
ESLOHC INULLC)  ■  21 
E ( ICHO )  •  21 
ED(ICMO)  •  Z1 
GOTO  34 

SO  CONTINUE 

C 

c - FIND  LEFT/A IQHT  RESIOUALS - 

C 

208  C08JR  •  0.0 

COBUL  •  0.0 
DO  50  J  •  1. IRONS 
DO  55  I  •  1.55 
MVR(I)  •  XSLOW(I.J) 

55  MVL(I)  *  TSLOM(I.J) 

C  IF( ITER. NE.O JOOTO  44 


205 


rasaaife^^ 


C8  IFU.LE.4  300T0  45 

C  IF( J.CQ. 10 30OTO  45 

C  XFfJ.eq.HJOOTO  45 

c  iPCj.eo.meoTo  45 

C  IF( J .EQ.2 l 3GOTO  45 

C  OOTO  44 

C45  CALL  SROOT(ESLOMU). HOT,. 0125) 

C  WHITE (4. 58 3J.ROT 

C58  FORMAT (IX. ' SLOW  LEFT  EIGENVECTOR  NO.',I2./5X, 

C  •  'EIGENVALUE  ■  • .E12.S.IX.E12.5.*  J'./5X. 

C  •'DESIRED  VECTOR  DESIGN  VECTOR* ./ 3 

C  URITEC4.5i)(TDES(I.J).TSLOH(I.J3. I«1 .8) 

C  JR  I TE  (6*47) 

C47  =ORMAT('— »  •---•-tf"---"--"" 

C  MRIT£(4.54  JCTOESCt.J 3 . TSLOWC I . J 3 . 1-9. 14  3 

C  WR1T£(4.473 

C  WRITEC  4 • 54 3 (TOES ( I . J 1 . TSL0M( I.J3.I-17.SS) 

C54  FORMAT (IX.E12.S. 1X.C12 • 5 . ' J* .5X.C12.S* 1X.C12.5 . 'J* 3 

44  DO  57  JJ  •  l.IUBl 

DO  57  KK  •  1.55 

57  NMR(JJ.IOC)  ■  RNUU-(J. JJ.XX3 

DO  40  JJ  ■  1.N1-1HAMCT 
DO  40  KK  •  l.Nt 

40  NMLCJJ.KK3  >  LNULL ( J • J J . KK  3 

CALL  CMATML(NMR. WVR.IUf 1.55.1. ROBJ 3 
CALL  CMATML(NML.MVL’N1-!RANCT,nI . I . LOBJ 3 
HTEST  ■  0. 

DO  41  JJ  •  l.IUBl 

RESR2(J3  •  RESR2 ( J 3  ♦  HOBJ ( J J  3 "CONJO ( ROBJ ( J J  3  3 

RESRKJ3  •  HESHKJ3  •  CABS  (ROBJ  ( JJ  3  3 

RESR(J)  •  RESHCJ)  •  ROBJ(JJ)*-2 

RINFR  ■  CABS (ROBJ ( JJ ) 3 

IF(RTEST.0T.RINFR300T0  41 

REINFRCJ3  •  RINFR 

RTEST  -RINFR 

41  CONTINUE 

RESR2(J3  •  SORT (RE3R2( J ) 3 
RR  •  RESRCJ  3 
RESRRCJ3  •  CSORTCRR3 
C  COB JR  -  COB JR  •  CABS(RR3 

C  COBJR  •  COB JR  ♦  CA8S(RESRR(J3) 

COBJR  •  COBJR  ♦  RESR2 ( J  3 

LTEST  •  0. 

DO  49  JJ  ■  I.N1-IRANCT 

RESLSt J  3  ■  RESLSCJ3  ♦  L08J(JJJ 

RESL2 ( J  3  •  RESL2CJ)  ♦  L08J(JJ3*C0NJ0(L08J(Jjn 

RCSL1IJ3  -  RESLKJ3  ♦  CABS  ( LOBJ  (JJ  3  3 

RESLCJI  -  RESLCJ3  ♦  L0BJ(JJ)"«2 

ELDAMUJ.J3  •  LOBJ  (  J  J  3 

c - SAVE  UNDAMAGED  LFT  RESIOUAL  VECTORS - 

IF( IUN0.CQ.O  3G0T0  45 
ELUNO( JJ • J  3  •  LOBJ ( JJ 3 

45  RINFL  •  CABS ( LOBJ (JJ 3  3 

IF (LTEST. 0T.RINFL300T0  45 
REINFL(J)  ■  RINFL 
LTEST  -RINFL 
45  CONTINUE 

RESL2U)  ■  SORT ( RESL2 ( J  3  3 
RL  •  RESLCJ3 
RESLL(J)  •  CSORT(RL) 

C  COBJL  •  COBJL  -  CABS(RL) 

C  COBJL  ■  COBJL  ♦  CABS ( RESLL ( J  3  3 

COBJL  •  COBJL  *  RESL2CJ3 
50  CONTINUE 

C - WRITE  UNDAMAGED  LEFT  RESIDUAL  VECTOR - 

IFdUND.EO.OJOCTO  48 

NRITE(4 . 5  3 ( (ELUNDC 1 .J)«J- 1.37 3*1-1. 1 ROWS 3 
48  IF( I ADS. CO. 5 3 OOTO  95 

47  IF( ITER.OT . 1 300T0  400 
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c - - - DISPLAY  RIGHT  AND  LEFT  RESIDUALS - 

M  WRITE! *• 70  JCOBJR tCOSJL 

70  FORMAT (/$*.•*»*■  DAM-RT  SLOW  SUBSPACE  RESIDUAL  •  '.EI2.I.'  ■«■■*. 

1  /SX.  .  DAH-LT  SLOW  S USSR ACE  RESIDUAL  •  *.E12.S.' 

21 

C 

c - DISPLAY  INDIVIDUAL  RESIDUALS - 


WRITE! A  <80 ) 

•  0  FORMAT! /IX, 'UNO  EVECT  SLOW  STATE  RGT-OAM  RESIDUALS  LFT 

1-0 AH  RESIDUALS*./) 

WRITE! 6. 81  HISTATEd  ).I.A£3R2d  KRElNFRd  J.SESL2CI  ).REINFL!I ). 
»l«l. [ROWS  1 


si  format cax.iz, iox.i2,6x.ei2.s.ix.ei2.s.2x.ei2.s. ix.eis.s) 

c - SET  U IF  ARBITRARY  ELEMENTS  FOR  AOS  SIMILAR  TO  ERSPACE - 

C - FOR  RECR2S  DO  NOT  LET  RT  STA8  OR  LT  STAB  8E  ARBITRARY 

111  •  1 

DO  71  I  ■  9.43 
C  IF! I .LE.8 JOOTO  71 

I ARB! Ill)  a  I 
III  •  III  *  l 
71  CONTINUE 

C  COMMENTED  OUT  FOR  RECR25 

C  DO  72  I  ■  29.34 

C  lARBCXIl)  •  I  ♦  9 

C  III  a  HI  *  1 

C2  CONTINUE 

c - FOR  RCCR25  CASE  THERE  ARE  10  LESS  ARB  ELEMENTS  THAN  FOR - 

C - - — SYMMETRIC  CASES.  COMMENT  the  eOLLOW!NG  TWO  OUT  FOR  SYMM. 

C  IAR8(27)  a  45 

C  IARBC28 1  a  47 

C  USE  THE  FOLLOWING  TWO  FOR  SYMMETRIC  CASES 

!ARB!34)  •  45 
I ARB! 37 )  ■  47 
C 

c - LEFT  null  SPACE  OPTIMIZATION  QUE - 

C 

WRITE!*. 82) 

82  FORMAT!/5X.  '  ENTER  "1"  FOR  MIN.  OF  LFT-QAM  RESIDUALS  ONLY  •  *■* 


•*./5X.  •«■»»  USING  ARB  VECTOR  ELEMENTS  AS  VARIABLES"*" 

•*./5X.  '■*«»  ENTER  -2-  FOR  lFT  NULL  SPACE  INTRSEC.  ANALY.  a» 

•  *./5X.  '■»»■  ENTER  **3h  TO  SHIFT  a  DESIRED  SLOW  EIGENVALUE  »• 

*’./5X.  '»»■«  ENTER  H4H  TO  EXIT  ELSPACE  anD  WRITE  OPTEIG  ■* 

•*./5X.  ENTER  "5"  FOR  MIN.  OF  LFT-OaM  RESIDUALS  ONLY  ■  " 

a*./5x.  1 "** ■  USING  EIGENVALUE  A$  VARIABLE.  ■« 

•  *  . /5X.  ’•*»»  ENTER  "*•*  TO  WR I T£  SEGEI3.  •• 

•  *./5X.  ’  ■■**  ENTER  "7**  TO  EXIT  ELSPaCE.  •* 

"* */5X.  ENTER  "0"  TO  EXIT  ELSPACE  AND  WRITE  XSLOW.  *a 

«*  ./) 

READ! a .0 ) I AOS 
IF! IAOS.EQ . 7 )GOTQ  9000 
IF(lAOS.EO.*)GOTO  $30 
IF! IA0S.E0.4 )GOTO  424 
IFdAOS.EO.nGOTO  83 
IFdAOS.EQ.SIGOTO  83 
IF! IADS.EQ.2 )GOTO  84 
tF! I ADS. EO.OJGOTO  521 
CALL  FRTCMS! 'CLRSCPN  M 

C - REIN  IT  RESIDUALS - 

DO  87  II  a  1 . I  ROWS 
REINFR(II)  a  0. 

REINFLCtn  •  0. 

RESRKII)  •  0. 

RESLKIS)  ■  0. 

RESR2! I I )  >  0. 

RCSL2UI)  a  0. 

RESLSdl )  ■  CHFLXIO.  .0.  ) 
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RCSRSCII)  •  CMPUUQ.'O.) 

resrcii)  •  cmflxco..o.) 

RESLUU  ■  CHFLXCO..Q.) 

- query  user  for  eigenvalue  shift  info - 

MUTtU.73) 

FORMAT (/JX.  *  ■»*»  ENTER  UNO  VECTOR  NO.  YOU  DESIRE  TO  SHIFT  •••■*. /5 
IX  .'MM  ENTER  "0“  TO  QUIT. 

REAOC ■ • 2 )  ICHG 

CALL  SROOTCECICHO).SCHO. .0125) 

WRITE! 4- 74JICHO.SCHG 

FORMAT  (/5X.  ENTER  NEW  S-FLANC  VALUE  OF  VECTOR  '.IS.* 

»  SX.'  CURRENT  VALUE  *  '  E12.5. 1X.E12.5./. 

«  5X. •  REAL  PART  ?' ./) 


REAOC ». 75 >RZ 
WRITEC4.74) 

FORMAT ( /5X * *  IHAO  FART  ?' 

FORMAT (F 12 . 5  ) 

READ! *  .  75  )CZ 
CALL  FRTCKS ( ' CLRSCRN  •) 

24  •  CMFLXIR2.C2) 

ECICHO)  •  CEXFUA«  0125) 

EB(ICHO)  -  ECICHO) 

INF  ■  0 

00  74  II  •  l. IRONS 
IFC ISTATEC 1 1 ) .NE. ZCHO  JGOTQ  74 
ESLOMCin  »  ECICHO) 

I NULL C  ■  II 
GOTO  24 
CONTINUE 

INULLC  ■  II 


ARITEC4.10S) 

FORMAT ( /5X » * ENTER  SLOW  INOEX  OF  THE  RESIDUAL  FOR  ADS  ••«*•./) 
REAOC -.85)10(1) 

FORMAT! 12) 

CALL  FRTCMSC ’CLRSCRN  *  1 
OOTO  241 

CALL  FRTCMSC ’CLRSCRN  ’ ) 

IFC INULL.NE • 0 )OOTO  84 
READC7.2HNULL 

REAOC  7 .  3 )  ( (RUNULLC l . JJ .KK ) .KK»1 *55  )  • JJ-1 .45  ) 

REAOC 7.3 )( CLUNULLU .JJ.KK J.KK-1* 55 1  .JJ«l *37) 

10(1)  •  INULL 


RL  ■  RESL(IR) 

RR  •  RESR(IR) 

ABR  •  CABS(RR) 
ABL  •  CABS(RL) 

ifcabr.ot.abdooto  111 


OOTO  112 
OBJ  ■  ABL 

!F( IMFo.EO. 1 )OOTO  121 
IN  •  l 

I STRAT  ■  0 
I OFT  •  S 
IONCD  •  2 

IFUA0S.C0.1  )OOTO  90 
NDV  •  2 
OOTO  fl 
NOV  •  IN-2-5S 
NCON  •  0 


1 

* 

■; 
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rtdtti 


m*  •  in 

NCOLA  •  222 
IRRINT  •  0 


Z3  •  ESLOH(IR) 
ifdADs.ea.nooTo  iu 

CALL  SROOT12S.22.TSTEP) 

XXd)  •  REAL ( 23 ) 

XK(2)  •  AIHA0<23| 

NRiretA.«uR.esL0*((t«).2i.  tsTATecin) 

RORNATI/SX. • ••••  AOS  IS  BEING  ENTERED  ROR-  ESLOWI ' . 10- • 1  . 

1  .  z  .  ■ .E12.S.IX.EI2.S. ’J 

2  s  ■  ■  .E12.S.1X.E12.5. 'J 

5  '*•■»  ENTER  2-PLANE  SOUNDS  RQR  THIS  EIGEN- 

*  .  VALUE  IN  R20.IS  RORNAT. 

*  ■*•••  UNOANAOEO  EIGENVECTOR  NO.  *  .  12  •  -ai 

WRITE(4.720> 

. . ENTER  VALUE  OR  ALPHA  ROR  OBJ . . 

READ («. 117 )ALPHA 
GOTO  « 

CALL  3ROOT (23.22. TSTEP ) 

>«ITE(4.llO)tR.ESLCHdR).22.  ISTATEdR) 

RORNAT ( /EX . .  AOS  IS  BEING  ENTERED  ROR  ESLONI • . 12 . • )  . , 

1  '<•"  2  ■  -.E12.S.1X.E12.S.-J 

2  '»•>»  s  ■  ■ .E12.S.1X.E12.S. 'J 

*  . ENTER  BO'JNOS  ON  THIS  SLOW  LPT  EVECTOR 

A  '••««  (N  R20.1S  RORNAT. 

i  ’*••»  UNOANAOEO  EIGENVECTOR  NO.  '.12.  •« 

WRITECt.llS) 

RORNAT (/5X. • real  TOLERANCE . . 

READ! t 17 )8R 
WRITE  14. H4) 

RORNATI/SX.'Rr.r  I  NAG  TOLERANCE  •  . . 

REA04R.U71BI 

RORNATIR20.1S) 

WRITE! 4. 1  IB  I 

RORNATI/SX. . ENTER  WE1QHTING  FACTOR . ,/) 

READ!  > » 1 17 1  WEIGHT 

CALL  RRTCHSCCLRSCRN  '1 

BUILD  DESIGN  VARIABLE  VECTOR  AND  UPPER/LOW  BOUND  VECTOR 
IRt IADS.EO. 1 IOOTO  234 
VUBI 1  I  a  XX< U  -  BR 
VLB!)  )  »  XXU  1  -  BR 
VU8I2)  a  XXI2)  •  BI 
VLB (2 )  •  XXI2)  -  BI 
IRtXX(2).Ne.O. 1GOTO  *4 
1 1 NAG  •  I 


0R(2)  •  0. 

CALL  RRTCHSCCLRSCRN  •) 


25  •  RESL(IR) 

— PRE  24  OCT  OBJ - 

OBJ  •  CABS (25) 

—24  OCT  »«W  OBJ 
25*  •  CSQRT ( 25 ) 

OBJ  a  CABS! 25) 

OBJ  a  RESU(IR) 

OBJ  a  RESL2IIR)  -  ALPHA 
OBJ  a  REInRLC IR ) 

IPRINT  a  0 

- 2-NORN  OR  LEFT  RESIDUAL  OIRRERENCES-- 

00  700  It  a  1.37 

DIRRdl)  a  ELDAH!  1 1 .  IR  ]  -  ELUNDdl.IR) 

OBJ  a  0. 

OO  710  II  a  1,37 

OBJ  a  OBJ  •  OIRRI 1 1 )«CONJO(OIRR ( II)) 


^vivv.y.y.y  ^ s-L>L >!•> i : -lyly.  ^ V, 


C/.V  V 


i»  intc.Ne.o.ojooTo  m 

VU81JJ.1I  •  0.0 

VLBlJJall  •  0.0 

OOTO  285 

284  DO  207  MN  a  1.57 

S*7  IX1IARB1HM1.E0.U.18OTO  200 

VU81JJ.11  a  XX(JJ.l)  .  8| 

VL81JJ.1)  •  XX(JJ.l)  -  |i 

OOTO  CO 5 

288  VU81JJ.ll  a  XX(JJ.l)  .  (I 

VL81JJ.il  •  XX1JJ.11  -  81 

285  DPI JJ ]  a  0. 

OXlJJMJ  a  0. 

c - JER0I2E  OUT  ELEMENTS  WHICH  ARE  <  */-  _ _ 

C  AM  NOT  2EROI2INO  OUT  XOR  RECR25  CASE 

C  RTEST  a  A8S1XX1JJ1I 

C  CTEST  a  48S1XX1 JJ»1 1 1 

C  IX 1  RTEST.  EQ.  0 .  1GOTO  ISO 
C  IXIRTEST.OT. I.E-083GOTO  UO 

C  XXI JJ  I  a  l.E-U 

C  VU81JJ1  a  l.E-U 

C  VLB1JJ1  a  -l.OE-U 

C1J0  IXICTEST.EO.O. 100T0  25$ 

C  IX1CTEST.OT. 1 .£-08 IOCTO  245 
C  XXUJ.ll  a  l.E-U 

C  JU81JJ.il  a  l.OE-U 

c  vl8ijj.1i  a  -i.ag-u 

245  JJ  •  JJ  *  2 

120  CONTINUE 

121  CALL  aOSIINXO. ISTRAT. iOXT. 10NED. 1XRINT. 10RA0.N0V.NC0N.XX. JL8.VU8. 

I  08J.13.  IDO. NOT.  1C.OX.Ra.nRa.nCOLA.WK.  10000.  IWK <12001 
ITER  a  ITER  ♦  I 

C  EVALUATE  OBJECTIVE  FUNCTION 

JJ  •  l 

ICONJQ  a  0 
«  •  101 1 1 
00  2»5  LL  a  1.5$ 

IX 1 IMAQ1ESLOW1KK 1 1 . EQ. 0 . 0  3 OOTO  244 

271  ICONJO  a  1 

244  T3L0NILL.XK1  a  CNRLX 1 XXI JJ 1 . XX 1 J J • l 1 1 
248  JJ  •  JJ  .  2 
24$  CONTINUE 

08 J  a  o. 

RLREAL  a  0. 

»L  a  CNRLX 1 0 . . 0 . 1 
RESLllIR]  a  0.0 
•ESL21 [Rl  a  0.0 
00  240  II  a  1.55 

270  WVL1II1  .  TSLONIII.IR) 

»  III  JJ  a  1 .Nl-IRANCT 
00  271  XX  a  1.N1 

271  WR.1JJ.XK1  a  LNULHtR.JJ.KKl 

CALL  CMAT1R.1NML.WVL.N1- IRANCT.N1 . 1  .LOBJ  ] 

LTEST  a  0. 

00  272  JJ  a  1.N1-IRANCT 
C272  RLREAL  a  RLREAL  •  CA8S1L08J1 JJ 1 1 

c - PLAN  J  08  J  a  SUM  OX  RL '  8 _ 

*L  a  RL  •  L08JIJJ 1 

c - ASYMM  TEST  OBJ  a  1  norm - 

RESLllIR  I  a  RESLllIR]  •  CA8S1L08J1JJ1 I 
RE5L21IR1  a  RESL2 1 1R 1  •  LOBJ 1 J J 1 *CONJQ 1 LOBJ 1 J J 1 1 

e - AS  VMM  CASE  TEST  OBJ  a  1NRINITV  HORN - 

RINXL  a  CABS 1 LOBJ I J J 1 1 
IX (LTEST. 9T. R INEL  3 OOTO  272 
REINEHIR3  a  RINXL 
LTEST  a  RINXL 
272  CONTINUE 

RESLllIR]  a  S0RT1RESL21IR11 
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C292 

C*»*< 

Caaai 


29S 


:?s 


:*e 

C294 

c - 

C294 

c - 

C294 

C - 

c 

c - 

:•« 

800 


810 

C 

284 

257 


SOS 

c 

c - 

c 

249 


502 


SOS 

SOI 

S04 

SOO 


247 


rss 


RL  •  RL  *  U»J(JJ)««2 


IP( XA0S.NE.2 1QOTO  294 


RLD  -  CABS  CRD 
RL  *  CMPLX(0 . . 0 .  ) 

DO  29S  JJ  ■  l »S7 
DO  29S  KK  a  l.Nl 
MHLCJJ.KKJ  •  LUNULL ( I >  JJ • KK ) 

CALL  CMATHLCNML.kVL.S7.Nl,l.L08J J 
00  295  JJ  •  l .57 
RL  «  *L  *  LCSJCJJ) 

RLU  -  CABS  CRD 
:e(rlu.ot.rld)goto  :«b 
OBJ  ■  RLD  •  kSIGHT»8LU 
GOTO  294 

OBJ  a  RLU  *  WEIGHT-RLD 
GOTO  294 
OBJ  a  8LREAL 

— PLAN  S  OBJ - 

OBJ  -  CABS(RL) 

— 3 LAN  1  OBJ - 

08JC  •  CSCRTCRD 
OBJ  «  CA8SC0BJCI 

- INE-NORM  OBJECTIVE  =OR  ASYMMETRIC  CASE  ll/S/84 - 

OBJ  •  REINFL(IR) 

- 2-NORM  OBJECTIVE  FUNCTION  ll/S/84 - 

OBJ  a  RESLCtIR) 

- - 2 -NORM  ♦  ORIENTATION  OBJECTIVE  FUNCTION  11/4/04— 

00  800  JJ  ■  1*55 

OT(JJ)  a  TOCS( JJ • IR  1  -  TSLOMI JJ . IR ) 

OTNORM(IR)  a  0. 

00  810  JJ  a  1.55 

OTNORMdRj  a  QTNORM(  IR  )  •  OTC  JJ  J-CONjOtOTt  JJ  )) 
OTNORM(IR)  a  SQRT(OTNORM(IRn 
OBJ  a  OTNORMfim  *  RESLC(IR) 

IF( ITER. OT. 2000 JGOTO  257 

IF( INPO.EQ. 0 1GGT0  257 
GOTO  121 

IE( ICONJO.EQ. 0 )GOTO  249 
KK  •  10(1 ) 

DO  SOB  LL  •  1.55 

TSLOW(LL.KKM)  a  CONJG ( T3L0N ( LL • KK  )  1 

- REBUILD  X.T.XLOW.TSLOW- - 

DO  SOO  KK  a  1.5$ 

OO  S02  LL  a  1. IRONS 
IF(1STATE(LL).EO.KK)OOTO  SOI 
CONTINUE 

DO  SOS  JJ  ■  1.55 
XS(JJ.KK)  a  T(JJ.KK) 

XTCJJ.KK)  a  XS(JJ.KK) 

GOTO  SOO 

00  S04  JJ  a  1.55 

XS(JJ.KK)  a  TSLOW(JJ.LL) 

XT(JJ.KK)  a  XS(JJ.KK) 

CONTINUE 

CALL  LEOT!C(XS.5S.SS.UNITyC.55.5S.O.WA.IER) 

00  247  KK  a  1.5$ 

DO  247  LL  a  1.55 

TCKK.LL)  •  XTCKK.LL1 
XD (LL . KK  )  a  UNZTVC(KK.LL) 

X(LL.KK)  a  UNITVC (KK .LL ) 

DO  255  JJ  •  I .IRONS 

DO  255  KK  a  1.55 

LL  a  ISTATE(JJ) 

XSLOW(KK.JJ)  a  K(KK.LL) 
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00  2$0  KK  •  MS 

DO  2*0  LL  ■  1.55 

2t0  UNITVC(ICK.LL)  .  CMP  LX  (0.0  *0.0) 

DO  252  KX  •  1.55 

252  UNXTVCtKK.KKl  .  CMPLX(1 .0.0.0) 

00  475  I  ■  1.1  ROMS 
WM1II)  •  0. 

RCSL1CI)  •  o. 

XCW2CI1  •  o. 

«SL2<n  -  o. 

RESR(!)  ■  CMPLXC0..0.) 

*75  R€SL(1)  •  CMPV.X10.  .0. 1 

goto  :oi 

*00  CALL  PRTCMSt ’CLfiSCRN  •) 

c 

c - 0ISPLAV  OBJECTIVE  *UNCTI0M- 

C 


410 


C 

c - 

c 

c 


FORM, 


WRITE (4.410  JOBJ.RESLKIR) ,0TNGRM( IR J , INFO. ITER .RLO.RLU. WEIGHT 


kT(/5X. * ■■■•  AOS  complete 

OBJECTIVE  FUNCTION  • 
2-norm  of  residual  • 

OT  2-NORM  OF  OIFF  • 

Info  •  •.a.'  iter 
OAM-LT  OBJ  .  ‘.E12.5.1X, 


weight  factor  »  •.eir.s./i 


./5X. 

•E12.5./5X. 

.E12.5./5X. 

•E12.S./SX. 

'  '.I4./5X. 
UNO-LT  OBJ  • 


.E12.S./5X. 


‘”“0CCr0C  T°  "CENTER  AOS.  WRITE  AOS OAT  FOR  ELSRACE  RENTfiv  OR- 
WRITE  OPTEIG  FOR  RECONF  RENTRV. 


*70 


500 


C 

c— 

c 

c - 

c - 

C424 

C424 

C 

e 

c 

c 

c 

c 

c 

e 

c 


WRtTE(4.470) 

EORHATI/SX.'*...  ENTER  -1-  TO  REENTER  AOS  /SX. 

•  ***•  ENTER  -2-  TO  WRITE  AOSOATA  /SX. 

•  '»••*  ENTER  -I-  TO  WRITE  XSLOM  /5X. 

•  ENTER  “4”  TO  WRITE  SESEIO  . ./SX. 

•  '«...  CNTEM  -0-  TO  WRITE  ORTEIO  •«»••./) 
REAO(..«)IEEH 

CALL  .RTCHS I • CLRSCRN  • ) 

IRtlEEN.EO.OlOOTO  424 
iRaEEN.co.iiaaTQ  sio 
IRtlEEN.EQ.UGOTO  S2I 
IE dEEN. £0.4  IOOTO  530 
OO  sag  I  .  1.24 
RESR1 ( I  1  .  0. 

RtSLldl  •  0. 

RESR2III  •  0. 

RESL2U)  •  0. 

REINER 1 1 )  •  0. 

REINELdl  •  0. 

RCSR  ID.  CNPLX  ( 0 .  .  0 .  ) 

RESLd  )  ■  CMRLXIO.  .0.  ) 

11*0  •  0 
ITER  .  0 
OOTO  20S 

WRITE  RILE  OR  ORTEIO  EOR  USE  IV  RECONE- _ - _ 

INSERT  ACT*  SENSOR  UNO  ELEMENTS - 

- VALUES  INTO  SLOW  EIGENVECTOES~WEO/LAT  ELE  .-14 _ 

DO  442  I  .  S .43 
OO  442  I  •  ..43 
DO  442  J  .  35 .55 
IE(J.«.4I  IGOTO  447 
IE (U .tC .42 IGOTO  447 
IEIJ.NE.4510OT0  447 
IE(U.NE.52)OOTO  447 
lEd  ,NE. .  IOOTO  447 
IRd.NE.lOIOOTO  447 
IEd.NE.ll  IOOTO  447 
IE d. HE.  12  IOOTO  447 
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C  !P(l.«.13)00T0  447 

C  IPCI.NC.UJGOTO  447 

C  IF  (l.«.  IS  JGOTO  447 

C  XPCX.NC.lt )OOTO  447 

C  OOTO  442 

C  XDCI.J)  •  XSAVECI.J) 

C442  CONTINUE 

C - 1 NSC AT  UNO  LAT  CLEMENTS  INTO  SLOW  LONG  EIGENVECTORS - 

C  OO  444  I  •  5.8 

C  XDCI.38)  ■  XSAVC (1.38) 

C  XDC I • 39 )  ■  XSAVEU.39) 

C  X0CX.4S)  •  XSAVEC  X  »4S ) 

£44  XQ(  I  <46  )  »  XSAVE  (1*44) 

c - INSERT  UNO  LON  ELEMENTS  INTO  SLOW  LAT  EIGENVECTORS - 

C  00  464  I  •  1.4 

C  XD ( I • 4 1 )  •  XSAVEC 1.41) 

C  X0CX.42)  •  XSAVCa.42) 

C  XDd.45)  •  XSAVEC  1.65) 

C64  XOC I <S2)  •  XSAVEC X *52 ) 

C  -RECONSTRUCT  FAST  EIGENSPACE  FROM  UNDAMAGED  El GENS PACE-  RECRZS-- 

C  -FOR  RECR25  7 .8. 17 . It .23 .24  ARC  ALSO  SLOW  STATES- 

C624  DO  443  I  «  9.43 

C  DO  443  J  •  1.37 

C  IFCJ.E0.71GOTO  463 

C  IF ( J . EQ .3 )GOTO  463 

C  IFfJ.ZQ. l?)OQTQ  443 

C  IF( J.EO. 18 JGOTO  463 

C  IF( J .EQ.23 JGOTO  463 

C  IFCJ.EO. 24 JGOTO  463 

C  XO(I.J)  ■  XSAVC ( I. J) 

C443  CONTINUE 

C - INSERT  FAST  ELEMENTS  OF  CONTROL  LAW  FILTERS - 

C  DO  445  J  »  1.37 

C  X0C45.J)  •  XSAVEC45.J) 

C465  XOC47.J)  •  XSAVEC47.J) 

c - RESTRUCTURE  X.OCLTA  BY  REORDERING  THE  FIRST  18 - 

C  VECTOR/EIGENVALUC  PAIRS  TO  3E  THE  SLOW  EIGENSPACE 

426  00  900  I  a  1.55 

00  900  J  a  1,18 

900  XDR(I.J)  a  XOCI.J«37) 

00  910  I  a  1 .55 

DO  910  J  a  19.55 

910  XDRfl.J)  a  XDfI.J-18) 

00  920  I  •  1.18 
920  EDRCI)  ■  EO<!«37) 

DO  925  I  a  14.55 
925  EDRCIJ  a  ED  (I- 181 

DO  930  I  •  1.55 
930  ED( I )  a  EDRCI) 

DO  935  I  •  1.55 

DO  935  J  ■  1.55 

935  XDU.J)  a  xDRCI.J) 

C - RE  INSET  FAST  EIGENSPACE - 

C  DO  934  I  a  9.43 

C  00  934  J  a  19.55 

C  XO(I.J)  a  XSAVE ( I. J) 

C4S4  CONTINUE 

C - QUCRV  USER  TO  CHECK  RECONSTRUCTED  OFT  SPACE  FOR  RESIDUALS- 

MRITCC4.410) 

410  FORMAT C /5X » ' "ENTER  "1"  TO  CALC  RESIDS  FOR  RECONSTRUCTED  SPACE* ’ . 

■  /5X. *  *ELSE  -0".  a- ./) 

READt " .8 ) IRECHK 
IF( 2RCCHK.CO.O 1G0T0  448 
DO  430  I  ■  1.55 

00  430  J  a  1.55 

DR  a  OREALCXOCI  •  J)  ) 

OC  a  DIMAOC  XD( I . J ) ) 
n  a  SNQL(DR) 

C  a  SNOLCDC) 
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,  A  aA  a. 


(to  XSCI.J)  •  CNPLXCR.C) 

DO  (41!  •  MS 
DO  *45  J  ■  1, JACKS 
KK  •  ISTATEtjj 
445  XSLON(l.J)  •  XS(I.KK) 

DO  450  I  •  1.2* 

RESL1U)  *  0. 

resrkd  •  o. 

RESLZCI j  •  0. 

RESR2 t I )  *  0. 

REINPRCI)  •  0. 

RElNPLlt)  •  0. 

*ESR!l3  *  .3. ; 

i50  ^ESLU)  .  ;mPLX<0. .0. J 
IH PO  *  3 
ITER  -  0 
GOTO  *:o 

440  4PrTC(8.4*0’( (XO(I.J). J*1 .55). I *1.55) 

4BITEC0.44O  WEDd.I-I'SS! 

440  FORMAT (4020. 13) 

OOTQ  90Q0 

c 

c - WRITE  PILE  IP A$s  XSLOW  POP  DECONP - 

C 

521  IP ASS  •  IP4$S  *  1 

WRITE(IPaSS.2>IROwS,  IPASS 
«AITe(tA*SS.4)ClSTATeU).I.l,lR0WSl 
nRITCUPaSS.3XCX(I.J).j*1.  551.;  *1.55) 
4AlTECP4SS.JKrTfI.J|.j*I.55).:*l  .55) 

WR I TE f ! p ASS . J ) ( < XSLOW ( | ,  j ) ,  .*•  1 . 1 ROMS  >.1*1.55) 

** i te ( i p ass . 5 ; c t t5lo* ( r . j ) . j ■ i . r rows ) . i » i . 55 > 

WA J TE f IPASS. I ) (ESlOw I n . I • | . JAO«S ) 

GOTO  5000 

c 

c - WHITE  PILE  I  PASS  ADSDAT  FOR  USE  8v  EL  SPACE - 

c 

510  IPASS  •  JPASS  •  1 

*a:teupas$.2>ipows.  IPASS 

4R I T£ ( IP ASS . 4 ) f ! STATE ( n . I • I . I ROWS ) 

WRITE  C IPASS. J)( ( X ( I.JJ.jal .55) . 1*1 .55) 

MRSTEI IPASS.SK (T(X.J).Jal. 55 J.I-1.55; 
HAlTEUPASS.S)UXSLOKtl.J).J«I.JAOWS).  2*1.55 1 
«»ireirPASS.SK(TSLOWf  .  IROWS). 1*1.55) 

MAiret IPASS. J  J  CESLOMCI ) . 1*1 . IRONS) 

SOTO  4000 

c 

c - - - WRITE  PILE  9 . 1 0 . OR  II  3E3EI0  DATA— - • - 

C 

5 SO  CALL  »RTCHS( ’CLRSCRN  *) 

MAITEI4.5S5) 

5S5  PORMAT(/Sx.  *  ■***•  ENTER  DESIGN  SEGMENT  NUMBER  ••••*./) 
RCA0(*.R)lSEO 
ISEG  ■  ISEG  *  0 

MR  I  TE  C  I SEG  .SKI  XSLOW  ( I .  J  ) .  J  •  1 . 1  ROWS  ) » I  ■  1 . 55  ) 

WRITCCISEG.3  KESLOW( I ) . 1*1 . IRONS) 

9000  STOP 

END 

C************ . *********************** . . . . . I 

c 

C  SUBROUTINE  CHATML  (COMPLEX  MATRIX  MULTIPLICATION) 

c 

C  COMPUTES  I  YY  ■  AA  *  08 

C  U  •  •  O  0M3  IN  AA 

C  LL  *  »  OF  ROWS  IN  80  AND  *  OP  COLUMNS  IN  AA 

C  10  •  •  OP  COLUMNS  IN  88 

. . ***** . * . . . ************ 

SUBROUTINE  CMATML(AA.BB.IA.LL.IB.YV) 

COMPLEX *0  AA(55 .55 ) • 08(55  >55 ) • YV(S5 .55 ) 

INTEGER  IA.LL.IB 
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10 

20 

SO 


DO  30  I  •  l.XA 
DO  20  J  »  1.18 
VYll.Jl  ■  CMFLXtD. 
DO  10  IHDCX  •  l.U 
VYCf.JJ  •  W(f.J) 
CONTINUE 
CONTINUE 
CONTINUE 

PETUHN 

END 


*  AA(I.INDCX)  ■  88 ( INDEX . J ) 


TUBRO'JTIME  SROOTj  CONVERTS  Z-°'. An£  300T3 
3- ? CASE  300TS 


APPENDIX  G 

SAMPLE  RECONFIGURATION  RUN  FOR  F-18,  CASE  A  DAMAGE 


RECOUP 

VS  FORTRAN  COMPILER  ENTERED.  12 : 59 t 29 

*»MAIN»»  END  OF  COMPILATION  1  <•*•••»•■ 

•■CMATML-"  END  OF  COMPILATION  2 

•«RANKO»«  CNO  OF  COMPILATION  3  »»»•»» 

"■HRMATD"*  END  OF  COMPILATION  A  •««■•«• 

■■SROOT»«  END  OF  COMPILATION  5 
VS  FORTRAN  COMPILER  EXITED.  12 :59s 34 


LOADING  RECONF  AND  ORACLOA 

EXECUTION  BEGINS... 

ENTER  -I"  TO  WRITE  UNDAMAGED  EIGENSTRUCTURE.i 

3VST.  MATRICES. (READ  “RECONF"  DATA  A;, 
“UNDIEG“.“UNDABC“.4  "CLM" . 

ENTER  "2“  TO  READ  UNDAMAGED  E I GENSTRUCTURE  AND 

WRITE  SLOW  RT  SUBPACE  DATA  FOR  USE  8V 
“ERSPACE"  (WRITE  "ERSPACE"  DATA  All 
ENTER  “3"  TO  COMPUTE  RECONFIGURED  GAINS. 

(WRITE  “FRECON-  DATA  A1 ) 

ENTER  “4“  TO  COMPUTE  RECCNF1G.  El GENSTRUCTURE 

AND  TIME  RESPONSE  COPTMATD.OPTPLOT ) 
ENTER  "5"  TO  COMPUTE  0  AND  WRITE  FILE  12 
“FXACT-  DATA. 

2 

ENTER  "1“  TO  MODIFY  DESIRED  El  GENSTRUCTURE 
ELSE  ENTER 

0 

»»■»  ENTER  "1“  TO  DISPLAY  DESIRED  EIGENSTRCTURE"**" 

ENTER  "0“  OTHERWISE.  «"»■ 

0 

CALLING  LSVDF  FOR  8 


■■■«  LSVDF  OF  “8“  COMPLETE  ■■■■ 
RANK ( 8 )  ■  10  »«»" 

CALLING  LSVDF  FOR  C 


”■»  LSVDF  OF  *C“  COMPLETE 
mm  RANK(C)  >  18  »»»» 

SLOW  STATE  MO.  1  UNO  STATE  NO.  38  S  ■  -0.22794E*01  0.270UE*01J 
SLOW  STATE  NO.  2  UNO  STATE  NO.  31  S  ■  -0.22714E*01  -0 .27016E*0i J 
SLOW  STATE  MO.  3  UNO  STATE  NO.  40  S  •  -0.38ll«E*01  0.00000E*00J 
SLOW  STATE  NO.  4  UNO  STATE  NO.  41  S  ■  -0.18703E*01  0.2tl$2£*0U 
SLOW  STATE  NO,  5  UNO  STATE  NO.  42  S  ■  -0.1870!E*01  -0 .2415CE*01 J 


217 


w 

V 


SLOW 

STATE 

NO. 

« 

UNO 

STATE 

NO. 

43 

S 

-0.*U**f80 

O.OOOOOfOOJ 

SLOW 

state  NO. 

7 

UNO  STATE  NO. 

44 

S 

-0.21Mte+0! 

0 . OOQOOE*OOJ 

SLOW 

STATE 

NO. 

• 

UNO  STATE 

NO. 

*5 

s 

-0 .2*042E*0l 

0.0Q000E*00J 

SLOW 

STATE  NO. 

* 

UNO 

STATE 

NO. 

4* 

s 

-0. 1 7330C-01 

0. OOOOOE*OOJ 

SLOW 

STATE 

NO. 

10 

UNO 

STATE 

NO. 

47 

s 

-0 .20Q3*E+0l 

O.OOOOOE*OOJ 

SLOW 

STATE 

NO. 

11 

UNO 

STATE 

NO. 

48 

s 

-0.1445*E*0l 

0 . OOOOOE*QO J 

SLOW 

STATE 

NO. 

12 

UNO 

state 

NO. 

4* 

s 

0.34383E-02 

0 . 00000E*00J 

SLOW 

state 

NO. 

13 

UNO 

STATE 

NO. 

SO 

s 

-0. 10000E*0l 

0 . 0G000E+00U 

SLOW 

STATE 

NO. 

1* 

UNO 

STATE 

NO. 

51 

s 

0 .00OQOC*OO 

0.00000E«00J 

SLOW 

STATE 

NO. 

IS 

UNO 

STATE 

MO. 

52 

s 

0.291 18E-02 

0 . OOOQOE*OOJ 

SLOW 

state 

NO. 

1* 

UNO 

STATE 

NO. 

55 

s 

O.OOOOOE'OO 

0.00000E*00J 

SLOW 

STATE 

NO. 

17 

UNO 

STATE 

NO. 

54 

s 

-0 . 200C 1E*01 

0 . 0000  OE*  00J 

CLOW 

state 

NO. 

13 

jNO 

state 

NO. 

55 

5 

-o.2oooie*ci 

3. OOOOOE-OOJ 

R t  **9.39/11.2 

3  13:00: 

>0* 

er space 

VS  POSTBAN  COMPILER  ENTERED. 


13 i 02 i 32 


««MA1N»*>  CNO  OP  COMPILATION  1  mmmmmm 

■•CHATML**  END  OP  COMPILATION  2  ■■■■•• 

••SROOT**  END  OP  COMPILATION  J 
VS  POBTRAN  COMPILER  EXITED.  13 : 02 i 35 


LOAOING  ERSPACE 
EXECUTION  3EGIMS. . . 


INDICES  OP  SLOW  EIGENVALUES  •••• 


38 

J* 

40 

41 

*2 

43 

44 

45 

4* 

47 

*8 

*9 

SO 

51 

52 

53 

5* 

55 

■•••  THE  POLL OWING  VECTOR  DISPLAYS  THE  NEARNESS  OP 
••••  EACH  SLOW  EIGENVECTOR  TO  THE  ALLOWABLE  RIGHT 
******  HAND  SLOW  EIGENSPACE  POR  THE  D  ah  AGED  Pit  MODEL  •  •* 


mmmm 


0.34419958201780-02 
0.349149S820178D-02 
0.2*5*543449*5*0-02 
0.4 3032302732**0-02 
0. *3032302732**0- 02 
0.1*271*23323 38 D- 02 
0.217**80703**00-02 
0.  *0*71*7***81*0-02 
0.2*233812152720-03 
0.709**2*9715*70-0* 
0.1**83**59*9310-02 
0.720704173195*0-02 
0.285**388*88310-11 
0.25507*12251550-12 
0.89902872**0800-05 
0.89****82115200-10 
0  .  *90717513*37*0-12 
0.00000000000000*00 


MM  ENTER  "1"  IP  RESIDUAL  IS  UNSAT  TO  RENTER  ADS 
■  ELSE  ENTER  "0**. 


mmmm  WRITING  ELSPACE  DATA  PILE  08  ■ 
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wm*Ml  JiF*J  M  iu^F3f.*Miii4!  iyp|pmjp»waLf|Ji^»  wji  yyvp  ■,«  ■.  ■ 


ti¬ 


nt  T-28.il/J5.92  13 iOS i22 
ELVACC 

VS  WTWN  COMPILED  ENTERED.  13i04i19 


■•MAIN**  END  OF  COMFILATION  1  ■*■**■ 
•■CMATML**  END  of  COMFILATION  2  ***■■* 


••SROOT**  EMO  OF  COMFILATION  S  *»»•»• 
VS  FORTRAN  CO^ILER  EXITED.  1S:0*«2S 


LOAOINO  eL SPACE  AOS 
EXECUTION  BEGINS... 


«**«  RANK(C"*t)  »  18  • 


■•■•  ENTER 
ENTER 


IF  PASS  fS  FOR  UNDAM  ANALYSIS  ••*• 
ELSE.  **•• 


•**•  ENTER  -I"  IF  FIRST  FaSS  thru  ELSFaCE  ••** 
ENTER  PASS  NUMBER  OTHCRNISE.  •*•* 


DAH-RT  SLOW  SUBSPACE  RESIDUAL 
•*•*  OAM-LT  SLOW  SUBSPACE  RESIDUAL 


0 . 245476-01  ”»■ 
9. 125 1 16*03 


UNO  EVECT  SLOW  STATE  ROT-DAM  RESIDUALS 


LFT-DAM  RESIDUALS 


1 

0.3*9266-02 

0.318236-02 

0.334846*02 

0.234736*02 

2 

0 . 349266-02 

0.318236-02 

0.334846*02 

0.23475E*02 

3 

0.29547E-02 

0.249556-02 

0.377906*02 

0.247216*02 

4 

0.4SS44E-Q2 

0.U9G1E-02 

0. 905226-02 

0 . 439416-02 

5 

0.453446-02 

0.349016-02 

0. 905226-02 

0.439416-02 

4 

0.192896-02 

0.17545E-02 

0.1099*6*02 

0.777426*01 

7 

0.2179/E-02 

0.198396-02 

0.489386*01 

0.487436*01 

B 

0.434766-02 

0.378476-02 

0.104886*00 

0.741 4  IE-0 1 

0.2923SE-03 

0.245806-03 

0.150576*01 

0. 124006*01 

10 

0.4B759C-04 

0.528446-04 

0.204716-01 

0.14414E-01 

11 

0.14587E-02 

0.135536-02 

0.115346-01 

0.814956-02 

12 

0 . 72043E-02 

0.455186-02 

0.493356*00 

0.493186*00 

13 

0.28S72E-11 

0.208 786- 11 

0.273176-01 

0.193146-01 

14 

0 .2S527E- 12 

0.174986-12 

0.231576-01 

0.230546-01 

IS 

0.6S75SE-03 

0.454486-03 

0.519556-01 

0.342946-01 

14 

0.89445E-10 

0.783036-10 

0.000006*00 

0.000006*00 

17 

0.492056-12 

0.385276-12 

0.000006*00 

0.000006*00 

18 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

ENTER  "l"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 
*■  USING  ARB  VECTOR  ELEMENTS  AS  VARIABLES* 

2**  FOR  LFT  null  space  intrscc.  analy. 
3**  TO  SHIFT  A  OESIRCO  SLOW  EIGENVALUE 
4-  TO  EXIT  ELSFACE  ANO  WRITE  OFTEIO 
5**  FOR  MIN.  OF  LFT-OAM  RESIDUALS  ONLY 

USINO  eigenvalue  as  variable. 

4-  TO  WRITE  SEOEIO. 

?m  TO  EXIT  ELSFACE. 

0"  TO  EXIT  ELSFACE  AND  WRITE  X3L0W. 


ENTER 

ENTER 

ENTER 

ENTER 


ENTER 

ENTER 

ENTER 


*•*• 

«••* 


••••  ENTER  SLOW  INDEX  OF  THE  RESIDUAL  FOR  ADS  «*•* 


219 


■  ■■a 


mmmm  AOS  IS  KINO  ENTERED  FOR  ESLOWC  II 

■■■*  z  •  o.miit*oo  o.sztisc-ou 

aaaa  S  ■  -0.22790E*01  0.270UE*0lJ 

•  aaa  ENTER  BOUNDS  ON  THIS  SLOW  LFT  EVECTOR  aaaa 
aaa*  IN  *20.15  * OR MAT.  aaaa 

aaaa  UNDAMAGED  EIGENVECTOR  NO.  SSaaaa 


aaaa  REAL  TOLERANCE  • 

0.001 

aaaa  IMAO  TOLERANCE  ■  •*»• 

0.001 

aaaa  ADS  COMPLETE 

OBJECTIVE  FUNCTION  a  0.4l85SE*0l 
2-NORM  OF  RESIDUAL  -  0.4185SC401 

DT  2-NORM  OF  OIF*  a  0.27028E-02 
INFO  a  0  ITER  a  555 

DAM-LT  OBJ  ■  0.00Q00E*Q0  UND-LT  OBJ  •  O.OOOOOE'OO 

WEIGHT  FACTOR  a  O.iOOOOE-Ol 


aaaa  ENTER  "1**  TO  REENTER  AOS  ■•»■ 
aaaa  ENTER  "2"  TO  WRITE  ADSOATA  aaaa 
aaaa  ENTER  “3"  TO  WRITE  XSLOW  aaaa 
aaaa  ENTER  "A"  TO  WRITE  SEGEIG  ««aa 
aaaa  ENTER  “0"  TO  WRITE  OFTEIG 


aaaa  DAM-RT  SLOW  SUBSPACE  RESIOUAL  a  0.42448E-01  aaaa 
aaaa  OAM-LT  SLOW  SUBSPACE  RESIDUAL  •  0.70510E*02  aaaa 


UNO  EVECT  SLOW  STATE  RGT-QAM  RESIDUALS  LFT-OAM  RESIDUALS 


5« 

1 

0.404 92E-02 

0.3770 9E-02 

0.41855£*01 

0.44«14E*02 

ST 

2 

0.40488E-02 

0.S7707E-Q2 

0 . 418S5E*0 1 

0 .448 14E*0 1 

40 

5 

0. 52182E-02 

0.29602E-02 

0 . S7790E*02 

0.24721E402 

41 

4 

0.46098E-02 

0.37S88E-Q2 

0. 90522E-02 

0 . 4S941E-02 

42 

5 

0 . 458156-02 

0.S7442E-02 

0.90522E-02 

0.43941E-02 

45 

4 

0.24042E-02 

0.22497E-02 

0. 10999E402 

0. 77762E*01 

64 

7 

0.26422E-02 

0.24819E-02 

0 . 48958E401 

0 . 48743E*0 1 

45 

8 

0.42094E-02 

0.34473E-02 

0.  J0488E*00 

0. 74] 41E-01 

44 

9 

0 . 37225E-05 

0.35227E-05 

0 . 15057E*0 1 

0.12400E«01 

47 

10 

0 . 1 1849E-03 

0.94S54E-04 

0.2047 1E-0 l 

0.14414E-01 

48 

11 

0 . 15197E-02 

0 . 13792E-Q2 

0. 1 1554E-01 

0 .8 1495E-02 

49 

12 

0 . 9 18 J7E-02 

0.84928E-02 

0.49555E*00 

0 . 49318E+00 

50 

13 

0.53323E-04 

0.47874E-04 

0.27317E-01 

0 . 19S14E-01 

51 

14 

0.37452E-05 

Q.54575E-05 

0 . 2S157E-01 

0.2S054E-01 

52 

15 

0.42540C-05 

0 .421 98E-Q5 

0 .51955E-01 

0.S4294E-01 

S3 

it 

0.93229E-03 

0.47544E-03 

0.00000E*00 

0 . OOOOOE*QO 

54 

17 

0.2701SE-05 

0.248S2E-03 

0  .  OQOOOE*QO 

Q . 00000E+00 

55 

18 

0.34582E-05 

0.54S42E-0S 

0 . OQ0O0E*OO 

0 . 0000QE*00 

aaaa  ENTER  "l"  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLV  aaaa 
aaaa  USING  ARB  VECTOR  ELEMENTS  AS  VARUBLESaaaa 

aaaa  ENTER  "2"  FOR  LFT  NULL  SPACE  INTRSEC.  ANALV.  aaaa 
•  ■■■  ENTER  "5"  TO  SHIFT  A  DESIRED  SLOW  EIGENVALUE  aaaa 
ENTER  "A-  TO  EXIT  ELSPACE  AND  WRITE  OPTEIO  aaaa 
aaaa  ENTER  HS*  FOR  MIN.  OF  LFT-OAM  RESIDUALS  ONLY  aaaa 
USING  EIGENVALUE  AS  VARIABLE. 
aaaa  CNTCft  "4"  TO  WRITE  SEOEIO.  aaaa 

aaaa  ENTER  "7"  TO  EXIT  ELSPACE. 

ENTER  -0-  TO  EXIT  ELSPACE  AND  WRITE  XSLOW.  aaaa 
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ENTER  SLOW  INDEX  OF  THE  RESIDUAL  FOE  AOS  ■■■« 


»■«  AOS  IS  KINO  ENTERED  FOE  6$L0W(  3)  mm 

»•••  Z  •  0.953476*00  0  .OOOOOE'OOJ 

mm  S  •  -0.3B118E*01  0 . 000006*Q0J 

«"•"  ENTER  BOUNDS  ON  THIS  SLOW  LET  6VCCT0R  »»•■ 

■  nm  IN  F20. 13  FORMAT.  ■ 

*•*•  UNDAMAGED  EIGENVECTOR  NO.  40»*»* 


»■««  real  TOLERANCE  * 


*■•»  IMAO  TOLERANCE  »  *•»• 


•  »*  AOS  COMPLETE  *••* 

OBJECTIVE  3 UNCTION  •  0.840946*01 

2-NORM  OF  RESIDUAL  *  0.840946*01 

OT  2-nORM  OF  0 IFF  •  0.2S879E-02 

INFO  •  0  ITER  ■  534 

OAM-LT  OBJ  •  a. 000006*00  UND-LT  OBJ  •  0 . 000006*00 

HEIGHT  FACTOR  *  Q.10000E-01 


•  *»»  ENTER  "1"  TO  REENTER  ADS  »»*• 
■  ENTER  "2“  TO  WRITE  AOSOATA  • 

•  ENTER  "3"  TO  WRITE  XSLOW  ***• 
»•■■  ENTER  -A"  TO  WRITE  SEGCI3  •  •*« 
*»•»  ENTER  -0“  TO  WRITE  OPTEIG  ««» 


DAW-RT  SLOW  SUBSPACE  RESIOUAL  •  0.4372IE-01  •••« 
DAM-LT  SLOW  SUBSPACE  RESIDUAL  ■  0.413306*02  ■••• 


UNO  EVECT  SLOW  STATE  ROT- QAM  RESIDUALS 


LPT- DAM  RESIDUALS 


I 

0.4I247E-02 

0.3842AE-02 

0 . 41855E*0 1 

0.448146*01 

2 

0.41385E-02 

0.387A7E-02 

0.418556*01 

0.448146*01 

3 

0.31300E-02 

0 .2879  IE- 02 

0.840946*01 

0.542406*01 

A 

0.A5921E-02 

0. 37393E-02 

0.90522E-02 

0 . 4394  IE-02 

5 

0.  A4400E-02 

0.37AA2E-02 

0.90522E-02 

0.43941E-02 

A 

0.2SAB4E-02 

0.2A184E-02 

0.109996*02 

0.777426*01 

7 

0.275A8E-02 

0.24023E-02 

0 . 489386*0 1 

0.487436*01 

• 

0.42097E-02 

0.34473E-02 

0.10A88E*00 

0 . 74141E-01 

9 

0. 39082E-OS 

0.37983E-03 

0.150576*01 

0.124006*01 

10 

0.11443E-03 

0.89720C-04 

0.20471E-01 

0. 144146-01 

11 

0.  I5S28E-02 

0. 13802E-02 

0.1 15S4E-01 

0.81495E-02 

12 

0.9B442E-02 

0.9S77AE-02 

0.493356*00 

0.493186*00 

IS 

0.S2751E-04 

0 .47870E-04 

0. 273176-01 

0 . 195146-01 

14 

0.34719E-0S 

0 . 35BBBC-06 

0.23157E-01 

0 .230546-01 

IS 

O.A242SE-OS 

0.4229AC-03 

0. 519556-01 

0.342946-01 

14 

0 . 92305E-03 

0.44797E-03 

0 .000006*00 

0.000006*00 

17 

Q .2420 SC- 03 

0.24049E-03 

0.000006*00 

0.000006*00 

18 

O.JI985C-OS 

0 . 31 772E-0S 

0.000006*00 

0.000006*00 

«•••  ENTER  -1"  FOR  MIN.  OF  LPT- DAM  RESIDUALS  ONLY  *»•• 
MM  US  I  NO  ARB  VECTOR  ELEMENTS  AS  VARIABLES**** 

•■*•  ENTER  "2"  FOR  LPT  NULL  SPACE  INTRSCC .  ANALY.  *•■" 
■"""  ENTER  -3"  TO  SHIFT  A  DESIRED  SLOW  EIGENVALUE  «” 
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■  ENTER  "4*  TO  EXIT  EL  SPACE  AND  MUTE  OPTCIO  ■■■■ 
ENTER  "5"  POP  MIN.  OP  LPT- OAM  RESIDUALS  ONLY 

USING  eiOENVALUC  AS  VAPJASLE.  ■■■■ 

ENTER  “4"  TO  MPITE  SCOEIO. 

ENTER  “7"  TO  EXIT  ELSPACE. 

ENTER  -0-  TO  EXIT  ELSPACE  AND  h*ITE  XSLON. 


«*•*■  ENTER  SLOW  INDEX  OP  T«  RESIDUAL  PQR  ADS 


*mmm  aQZ  13  BEING  ENTERED  FOR  £3LOW(  o)  •«»» 
«•«»  Z  •  0.99543E*00  O.OOOQOE*OOJ 
«»««  s  »  -0.5U2SE*00  O.QOOQOC*OOJ 

ENTER  SOUNDS  ON  THIS  SLOW  LPT  EVECTOR 
»»•*  IN  P20.1S  FORMAT. 

•  UNDAMAGED  EIGENVECTOR  NO.  4S»»"» 


"■«"  REAL  TOLERANCE  • 

0.001 

»•»»■  I MAO  TOLERANCE  ■  ■■■« 

0.001 

«««m  AOS  COMPuETE 

OBJECTIVE  FUNCTION  •  0.9B729E*01 

2-NORM  OP  RCSIOUAL  •  0.98729E*01 

OT  2-NORM  OP  OIPP  ■  0. 1S494E-02 

INPO  *  0  ITER  •  S74 

DAM-LT  08J  «  0.00000E*00  UNO-LT  OBJ  •  0.000002*00 

WEIGHT  FACTOR  ■  0.10000E-01 


ENTER  -1-  TO  REENTER  ADS 
ENTER  "2"  TO  WRITE  ADSDATA 
•  ENTER  "3"  TO  WRITE  XSLOW 
ENTER  "4"  TO  WRITE  SEGEIO 
ENTER  "0"  TO  WRITE  OPTCIO 


••••  DAM-RT  SLOW  SUBSPACE  RESIDUAL  ■  0.4S488E-01  • 
■•••  OAM-LT  SLOW  SUBSPACE  RESIDUAL  •  0.40204E*02 


UNO  EVECT  SLOW  STATE  ROT- OAM  RESIDUALS  LPT- DAM  RESIOUALS 


SB 

1 

0.4128SE-02 

0.S844SE-02 

0 .419552*01 

0.44914E*01 

S4 

2 

0.41S49E-02 

0.SB727E-02 

0.1 ISSSE’Ql 

0.44B14e*01 

40 

S 

0.S1S02C-02 

0 .2B74SC-02 

0.84094C«01 

0.54240C*0I 

41 

4 

0.4S92SE-02 

0.S7S9SE-02 

0.90422E-02 

0 . 4S94 IE-02 

42 

4 

0.4440BC-02 

0.S7442E-02 

0.9QS22C-02 

0.4S941E-02 

4S 

4 

0.2S4B7E-02 

0.241B9E-02 

0.98724E*01 

0 . 492822*01 

44 

7 

0.2754SE-02 

0.24020E-02 

0.489382*01 

0.48743E*01 

44 

• 

0 .4 1 914E-02 

0 . S4S2 IE-02 

0.10*892*00 

0.741 4  IE-01 

44 

4 

O.S9BB1E-OS 

0.S7««1C-0S 

0. 140S7E*01 

0. 124002*01 

47 

10 

0.11444C-0S 

0.S9749E-04 

0.20471E-01 

0.14414E-01 

4B 

11 

0. 14S27E-02 

0 . 1381 IS- 02 

0.U434E-01 

0.81494E-02 

49 

12 

0.9B4S4E-02 

0.93744E-02 

0 . 493352*00 

0.493182*00 

40 

IS 

0.427B2E-04 

0.47872E-04 

0.27317C-01 

0 . 1951 4E-01 

41 

14 

0.S4449E-04 

0.34S11E-04 

0.2S1S7E-01 

0.230442-01 

■4 

IS 

0.42SS1E-0S 

0 .42 19BE-0S 

0.4194SE-Q1 

0.S4294E-01 

45 

14 

0 . 90S 14E-0S 

0 . 444S3E-05 

0 . 00000€*00 

0.000002*00 

44 

17 

0 . 24202E-0S 

0.24049C-0S 

0 . 00000c*00 

0.000008*00 

B9 


O.S19B4E-0*  s.in;ic-o«  0. QOOOOC+OO  Q.00000£*00 


-1-  FOR  HIM.  OF  LFT-OAH  RESIDUALS  ONLY 
U3IM0  MS  VECTOR  ELEMENT*  AS  VMIABLCS»««> 
•t"  FOR  LFT  NVJU.  VAC «  iNTRSCC.  ANALY.  • 
"3“  TO  SHIFT  A  DCS  I SCO  SLOM  EIGENVALUE 
TO  EXIT  ELSFACC  and  Min  OFTCIO 
“5"  FOR  MIN.  OF  LFT-DAM  RESIOUALS  ONLY 
USING  EIGENVALUE  AS  VMUBLC. 

-I-  TO  WHITE  SEOEIO. 

-7“  TO  EXIT  SLOP ACE . 

**0"  TO  EXIT  ELSFACC  ANO  MITE  XSLOW. 


ENTER  SLOW  INDEX  OF  THE  RESIDUAL  FOR  ADS  • 


■"  AOS  IS  BEING  ENTERED  FOR  ESLOWC  4) 

■"  2  ■  0.94S4SE*00  0 . OOOOOE*00 J 

•  •  S  •  -0.5U23E-00  0 . 00000E*Q0J 

"•  ENTER  SOUNDS  ON  THIS  SLOW  LPT  EVCCTOR  •••• 
»*  IN  F20.13  FORMAT.  •  ■■■ 

»•  UNDAMAGED  EIGENVECTOR  NO.  4S»«*»« 


REAL  TOLERANCE  • 


■•••  IMAG  TOLERANCE  • 


AOS  COMPLETE 

OBJECTIVE  FUNCTION  •  0.84548C*01 

2-NORM  OF  RESIDUAL  «  0.84S48E*01 

OT  2-NORM  OF  3IFF  •  0.S8124E-02 

INFO  •  0  ITER  •  573 

DAH-lT  OBJ  •  o.oooooc*oo  UND-LT  OBJ  •  0 . oooooc*oo 

WCIOHT  factor  ■  o.iooooc-oi 


mmm  ENTER  "I"  TO  REENTER  AOS 


ENTER  ~2m  TO  WRITE  AOSOATA 

»•»  ENTER  -3-  TO  WRITE  XSLOW 

ENTER  TO  WRITE  SEOCIO 

•  ENTER  "0"  TO  WRITE  OPTCIO  • 


DAH-RT  SLOW  SUBSPACE  RESIDUAL  ■  0.4J720C-01  •••• 

DAH-LT  SLOW  SUBSPACC  RESIDUAL  •  0 . S8988C+Q2  •  ••• 


UNO  cvecr  SLOW  STATE  ROT- DAM  RESIDUALS 


LPT- 0AM  RESIDUALS 


0.41294C-02 

0 .  S8443E-02 

0 . 1185SC*01 

0 . 448 14E»0 1 

0.41349C-02 

0 . 38705C-02 

0 . 4 1899C*0I 

0 . 448  14E  +  0 1 

0.31S02C-02 

0.28794C-02 

0.840UC-01 

0.94240t*01 

0.44040C-02 

0.S7540E-02 

0 . 90422E-02 

0 . 4194  IE-02 

0.44S99C-Q2 

0.37449C-02 

0.90922E-02 

0 . 4394 1C-02 

0.2SA82E-02 

0.24184C-02 

0  .84$48E*0  1 

0.§9255E*0l 

0 .2794  IE-02 

0.24014C-02 

0 . 489$8E*0 1 

0.48743f01 

0.4191 3E- 02 

0 . 34S21C-02 

0. 10488C«00 

0. 74141 C-Ot 

0.S9B74E-0S 

0.S7975E-0S 

0. 15057EO1 

0.12400C-01 

0.  M44SC-0S 

0.89779E-04 

0.20471C-01 

0.14414C-01 

0.19J24C-02 

0.1I8UC-02 

0 . 1 15 J4C-01 

0 .8 I495E-02 

’’Vi 


xrMM 


4* 

12 

0 . 884  1  8E-02 

0*857501-02 

0 . 48335E*00 

0. 48518E*00 

•• 

15 

0  .S2770E-04 

0.47872E-04 

0 .275176-01 

0 . 183 14C-01 

■  ‘i 

51 

14 

0.5S12SE-05 

0.54I42E-05 

0 .231576-01 

0. 250S4E-01 

♦  V 

52 

15 

0.42552E-05 

0.421 88E- 05 

0.51855E-01 

0.S4284E-01 

55 

14 

0 . 8S282E-05 

0.47828E-05 

0 .  OOOOOE*OQ 

0 . 000006*00 

54 

17 

0.24201E-05 

Q.24048E-05 

0 . 0OO0OE*00 

0.000006*00 

55 

18 

0.5 188  IE- 05 

0 . 51 748E-0S 

0 . 000006*00 

0.000006*00 

ENTER  -l- 

FOR  MIN.  OF  LFT- 

dam  residuals 

ONLY  •■■■ 

USING  ARB  VECTOR  ELEMENTS  A3  VAR I ABLES""*" 
"■«  ENTER  -2"  FOR  LFT  MULL  SPACE  INTRSEC.  ANALV.  • 

•••■  ENTER  -3-  TO  SHIFT  A  DESIRED  SLOW  EIGENVALUE 

••••  ENTER  “4"  ’3  EXIT  ELSPACE  UNO  URITE  OPT? IS  • 

ENTER  "S"  cOR  HfN.  OF  .FT-CAM  RESIDUALS  ONLY 

USING  EIGENVALUE  as  variable.  **»■ 

ENTER  “4“  TO  WRITE  SEGEI3.  »»•* 

ENTER  -7“  TO  EXIT  ELSPACE. 

•  ENTER  -0"  TO  EXIT  ELSPACE  anO  WRITE  XSLOW.  mm 


*•••  ENTER  SLOW  INDEX  OF  THE  RESIDUAL  FOR  AOS 


»•••  AOS  IS  BEING  ENTERED  FOR  55LOWC  «)  «■«» 
•••■  2  •  0.888786*00  0 . 00000£*00j 

««»»  S  •  -0.17402E-01  0 . OOOOOE*OOJ 

mm  ENTER  BOUNDS  ON  THIS  SLOW  LFT  E VECTOR  ■ 
IN  Fro. 15  FORMAT.  . 

UNDAMAGED  EIGENVECTOR  no.  44»«»« 


»»«  real  TOLERANCE  •  mm 


m»*  I MAO  TOLERANCE  « 


»■•  ADS  COMPLETE  ■■■» 

OBJECTIVE  FUNCTION  «  C. 155056*01 
C-MORM  OF  RESIOUAL  »  0.155056*01 

0T  2-NORM  OF  OIFF  •  0.1184756-02 

INFO  •  0  ITER  •  472 

OAM-lT  OBJ  ■  0 . 000006*00  UND-LT  OBJ  •  0.000006*00 

WEIGHT  FACTOR  •  O.IOOOOE-Ol 


••••  ENTER  -l-  TO  REENTER  ADS  «••• 

*•••  ENTER  -2"  TO  WRITE  A0SDATA  • 

ENTER  "S-  TO  WRITE  XSLOW  mmmm 

ENTER  "4-  TO  WRITE  3EGCIO  • 

CNTER  -0"  TO  WRITE  OPTEIO 


OAM-RT  SLOW  SUBSPACE  RESIDUAL  ■  0. 457116-01  •••■ 
DAM-LT  SLOW  SUBSPACE  RESIDUAL  •  0 . 588556*02  •••• 


uno  evict  slow  state  rot-oam  residuals 


LPT- DAM  RESIDUALS 


0.4I282C-02 
0.4I54BE-02 
0 . 5 1 302E-02 
0 .  *40*06-02 
0.44720E-02 


0.58441E-02 
0 .  SS702E-02 
0.2B744E-02 
0.J7540E-02 
0.57584E-02 


0.418556*01 
0 . 4  18556*01 
0 . 8*0f 4E*0 1 
0 .  80522E-02 


0 .4481*6*01 
0.448146*01 
0.542406*01 
0 . 4S841E-02 


0 .  80522C-02  0 . 4584  IE-02 


8 


43 

4 

0.2540 IE-02 

0.241BJE-02 

0 .845486*01 

0.542356*01 

44 

7 

0.C7S4QE-02 

0.2401SE-02 

0.484386*01 

0.487436*01 

45 

• 

0.41414C-02 

0.J4I21C-02 

0.104886*00 

0.74141E-01 

44 

4 

0.348 726-03 

0 . 574736-03 

0. 1SS05E*Q1 

0.124016*01 

47 

10 

0 . 1 1445C-03 

0.847826-04 

0.20471E-01 

0.14414E-01 

4B 

11 

0 . 15324E-02 

0. 1  SB  1  IE-02 

0 . 1 1554E-0 1 

0 .814456-02 

44 

12 

0.40415E-02 

0 . 43  745E-02 

0.443356*00 

0.445186*00 

SO 

IS 

0 .5277  iC-04 

0 .478 7 SE- 04 

0.27317E-01 

0.143146-01 

51 

14 

0.3S12SE-05 

0 . *4 14JE-05 

0 .231576-01 

0 .250546-01 

52 

IS 

0.425326-03 

0.421 48E-03 

0 . 5 1 455E-0 1 

0.24244E-01 

S3 

14 

0 . 45300E-Q5 

0 . 47827E-03 

0.000006*00 

0.000006*00 

54 

IT 

0.242Q1E-03 

0.24048E-35 

0.000006*00 

0.000006*00 

55 

18 

0.31*816-05 

0.317  48E- 05 

0 . 003006*00 

0.000006*00 

• 

mmu 

ENTER 

eOft  MIN.  3F  «jrr. 

DAM  RESIDUALS 

ONLY  •••» 

••••  USING  ARB  VECTOR  ELEMENTS  AS  VAR  I ABLEC"** 

ENTER  MC**  *OR  let  null  SPACE  INTRSEC.  ANALY. 
■■*■  ENTER  -5-  TO  SHtrr  A  DESIRED  SLOW  EIGENVALUE  •• 
ENTER  "4-  to  EXIT  ELSRACE  AND  WRITE  OFTEIG  •• 
■•••  ENTER  "5“  FOR  MIN.  OR  lFT-DAM  RESIOUALS  ONLY  •• 
USINO  EIGENVALUE  as  variable.  •» 

ENTER  -4-  TO  WRITE  SEGEIO. 

ENTER  "7"  TO  EXIT  CLSPACE.  •• 

ENTER  -0-  TO  EXIT  ELSRACE  AND  WRITE  XSLOW.  •• 


•Enter  ”**"  TO  CALC  RESIDS  FOR  RECONSTRUCTED  SPACE* 
•ELSE  -0-.  * 


••••  DAH-RT  SLOW  SUBSRACE  RESIDUAL  •  0.4373  IE-01 
"■»■  OAM-LT  slow  S USSR ace  RESIDUAL  ■  0 . 4 1277E*02 


UNO  EVECT  SLOW  STATE  ROT-OAM  RESIDUALS  LFT-QAN  RESIDUALS 


SB 

1 

0. 412426-02 

0. 384416-02 

0.21257E*02 

3.203466*02 

34 

** 

0.413486-02 

0 . 31 702E-02 

0.222556*02 

3.213*46*02 

40 

3 

0.51 302E-02 

0 .287466-02 

0 . 484446*0  t 

0 .5022  7E*0 1 

41 

4 

0.440406-02 

0 .375406-02 

0.40A48E-0C 

0 . 4S447E-02 

42 

5 

0.447206-02 

0 .375446-02 

0.415S3E-02 

0 . 434486-02 

43 

4 

0.2S481E-02 

0.241836-02 

0.14*046*02 

3.153*06*02 

44 

7 

0 .275406-02 

0.240156-02 

0.425556*01 

0. 76S4SE*0l 

45 

8 

0. 414146-02 

0 . 3452  IE-02 

0.10*8*6*00 

0. 741436-01 

44 

4 

0 . 348  726-03 

0 .374736-03 

0.1  1542E*02 

0.  U384E*92 

47 

10 

0. 114456-03 

0 .847826-04 

0 .204726-01 

0. 14417E-01 

48 

11 

0 . 152246-02 

0. 1381  IE-02 

0. 115746-31 

0.814*56-02 

44 

12 

0.48413E-02 

0.43745E-02 

0.  /$33  7E*00 

0.4*21 46*00 

50 

13 

0.52 7 7  IE- 04 

0.47873E-04 

0.2731 76-01 

0.1*3156-01 

51 

14 

0 . 35 1 23E-0S 

0.341436-05 

0.24001E*01 

0.254476*01 

52 

15 

0.425326-03 

0.42 1486-03 

0. 514*16-01 

0.342*56-01 

S3 

14 

0 .433006-03 

0.47827E-03 

0.000006*00 

0.000006*00 

54 

17 

0 .242016-03 

0.240486-03 

0 . 000006*00 

0.000006*00 

$5 

18 

0 . 31481 E- OS 

0.31 7686-05 

0.000006*00 

0.000006*00 

•  ENTER  m\*  RCR  MIN.  OR  LFT-DAM  RESIDUALS  ONLY 

USINO  ARB  VECTOR  ELEMENTS  AS  VARIABLES"""* 
■■■■  ENTER  "2"  FOR  LRT  NULL  SPACE  INTRSEC.  ANALY.  •«•• 

"*»•  ENTER  -S"  TO  SHIFT  A  OESIREO  SLOW  EIGENVALUE  *«•• 

■  ENTER  "4**  TO  EXIT  ELSPACE  AND  WRITE  OPTEIG  *•■« 

ENTER  "S'*  FOR  MIN.  OF  LFT-DAM  RESIDUALS  ONLY 
USINO  EIGENVALUE  as  VARIABLE. 

■•••  ENTER  -4-  TO  WRITE  SEGEIO.  *••■ 

ENTER  "7"  TO  EXIT  ELSFACE.  ••«* 

■•••  ENTER  "0**  TO  EXIT  ELSRACE  AND  WRITE  XSLOW . 
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■ENT EH  -l-  TO  CALC  RESIOS  FOR  RECONSTRUCTED  SPACE* 
•ELSE  -0".  ■ 


0 

Rt  T»tS1.47/lM.01  ISiOtiAS 
RECONF 

VS  F OUTRAN  COMPILER  ENTERED.  13 i Of » 04 
■*MAlN»«  END  OF  COMPILATION  1  "■»»•« 

««cmatml**  £no  of  compilation  Z 

■  ••RANKD**  £N0  of  compilation  i  *■•■•■ 

■ rWRHATD**  END  OF  COMPILATION  4  •■•••• 

**S«OOT»«  ENO  OF  COMPILATION  5  •»"■»• 
VS  FORTRAN  COMPILER  EXITED.  !Sa09:U 


LOADING  RECONF  AND  ORACLSA 
EXECUTION  BEGINS... 

ENTER  **!*•  TO  WRITE  UNDAMAGED  EI0EN$7RUC”U«E .4 

CVST.  MATRICES.  .'READ  -RECONF**  DATA  Al  . 
“UNDIEG" . "UNO ABC" . &  -CLM“. 

ENTER  "2“  TO  READ  UNDAMAGED  EIGENSTRucTuRE  ANO 

WRITE  SLOW  RT  SUBPACE  DATA  POR  USE  BY 
-ERSPACE**  (WRITE  "ERSPACE"  DATA  Aii 
ENTER  "3**  TO  COMPUTE  RECONFIGURED  GaInS. 

(WRITE  -FRECON-  DATA  All 
ENTER  **4-  TO  CONFUTE  RECONFIO.  C IOENSTRUCTURE 

ANO  TIME  RESPONSE  (OPTMATD.OPTPLOT) 
ENTER  -5**  TO  COMPUTE  Q  AND  WRITE  FILE  12 
-fxact-  DATA. 


3 


ENTER  -1-  TO  DISFLAV  DESIRED  EIGENSTRCTURE*""* 
■■••  ENTER  -0-  OTHERWISE.  *«"• 


0 


CALLING  LSVOF  FOR  B  •"•• 


LSVOF  OF  -B-  COMPLETE  •••• 
«•••  RANK  ( B  )  *  10  ■••' 

■■■■  CALLING  LSVOP  FOR  C  ■«•• 


■■■•  LSVOF  OF  "C"  COMPLETE  ■••■ 
■  ■•■  RANK(C)  •  IB  **"* 

Rj  Taf.34/9.72  1  3  t  OR 1 4 1 

RECONF 

VS  FORTRAN  COMPIwER  ENTERED.  13i09'4S 

••MAIN**  END  OF  COMPILATION  l  . . 

■•CMATML**  END  OF  COMF ILATION  Z  •■■••■ 
••RANKD**  ENO  OF  COMFILATION  3  •••«■« 
••WRMATD**  ENO  OF  COMPILATION  4  •••••« 


i  «f  g  lynpii  ■  w*  i  i  i  w  g  iTiw»vi ivy  y  >  wjw*  y  i> 


■  ■MOOT*-  END  0*  COMPILATION  S  ■■■**■ 
VS  POP TP AN  COMPILE*  EXITED.  13iO»i5S 


LOADING  RECONP  AND  ORACLSA 
EXECUTION  K9INS. . . 

CNTEP  -l-  to  WHITE  UNDAMAGED  E IGCNSTRUCTUR6 . 2 

SVST.  NATH  ICES. (HEAD  "RECONF"  DATA  At. 
"WQIEQm.hUNOaBC,,.S  "CLM". 

ENTER  “C*  TO  READ  UNOamaGED  EIGENSTHUCtURE  AND 

WHITE  SLOW  RT  SUBPACE  DATA  FOR  USE  3Y 
•ERSPACE"  'WHITE  "ERSPACE"  DATA  ai) 
ENTER  "S"  *0  COMPUTE  RECONFIGURED  GAINS. 

(WHITE  "•AEGON"  OATA  At) 

ENTER  "4"  TO  COMPUTE  RECONFIG.  EIGENSTRUCTUHE 

AND  TIME  RESPONSE  (OPTMATD.OPTPLOT ) 
ENTER  -5"  TO  COMPUTE  Q  AND  WRITE  PILE  12 
“FXACT"  DATA. 


4 


ENTER  "l"  TO  DISPLAY  RECONPIGURED  **•■ 

■•*■  EIGENSTRUCTUHE.  ELSE  ENTER  "0".  •**" 


0 


■■•■  DAMAGED  FEEDBACK  gain  matrix  «*■■ 

COL  :-9 


0.214356*00 

-0.131436*00 

0.000006*00 

0.000006*00 

0.240006-01 

0.000006*00 

-0.257396-02 

0.748136-03 

-0.191416-01 

Q  .214356*00 

-0.131436*00 

0.000006*00 

0.000006*00 

-0.240006-01 

0.000006*00 

-0. 257396-02 

0.748136-03 

-0.1914  IE-01 

0.000006*00 

3.000006*00 

0.209486-01 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0 . 300006*00 

3.209486-01 

3. 300006*00 

0.300006*00 

0.000006*00 

0 . 000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.110286-01 

0. 0000OE*00 

0.192006-01 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

3.110286-OX 

0 . OOOOOE  *00 

-0.192006-01 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0. 0000OE*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.400006-01 

0.000006*00 

0.000006*00 

0.000006*00 

0-000006*00 

0 . 000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

-0 .400006-01 

o.oooooe*oo 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.48937E*00 

0 . 5880  7E*00 

0.145006*02 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.489376*00 

0.388076*00 

0.145006*02 

0.000006*00 

0.000006*00 

0.000006*00 

COL  10  -  10 


> 


Rf 

y. 

y. 

ft 

to 

» 

£ 


31 


-0.191416- 

01  -0.2107«6* 

00  -0 . 382826- 

01  O.OOOOOE* 

00  0 . 000006' 

►00  0.000006 

►00  0.000006* 

00  O.OOOOOE* 

00  0.000006 

0.191416-01 

-0.210796*00 

-0.382826-01 

0 .000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

3.000006*00 

0.000006*00 

0.412356-01 

3 . 300006*00 

0.000006*00 

0.000006*00 

0.000006*00 

S .000006-30 

0.000006*00 

0.000006*00 

3.000006*00 

0.4 12356-01 

0.000006*00 

0  ■  000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

3.30000E*00 

0.000006*00 

0.000006*00 

0.218036-01 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0 . OOOOOE*00 

0.000006*00 

0.000006*00 

0.218856-01 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0 . 00000E* 00 

0.000006*00 

0 . 000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0 .000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0.000006*00 

0 . 000002*00 

0 . 000006*00 

0 . 000006*00 

0.000006*00 

0.000006*00 

-0.85434E-02 

-0.493956-02 

0.780406-04 

0.317506-02 

0.000006*00 

0.000006*00 

0 . OOOOOE*OQ 

0.000006*00 

0.000006*00 

-0.854346-02 

-0.493956-02 

0. 78040E-04 

0.317506-02 

«■■■  PTtLOA  ■«■« 

COL  1-9 

0.214146*00  -0.131026*00  0.442096-03  0.84401E-04  0.24001E-01  0.385846-05  -0.24040E-02  0.747336-03  -0.19344E-01 


0.214146*00  -0 . 131026*00 
0.355896-02  0.74240E-02 
0.353906-02  0.74241E-02 
0.S9843E-02  -0.939086-02 
0 . 590596-02  -O.9S970E-O2 


0.441716-05  -0. 329106-04  -0.2400IE-01  O.42900E-O5  -0.240406-02  0.7473JE-03  -0.19344E-01 

0 . 24497E-0 1  -0.90519E-04  -0.29955E-04  -0.198S9E-04  -0.500296-03  -0.13901E-04  -0.372046-02 

0.244906-01  -0. 905176-04  -0.29954E-04  -O.19059E-O4  -0.500306-03  -0.1S902E-04  -0.37205E-02 

0 .478446-02  -0.100176-04  0.19203E-01  -0.22555E-0S  0.51752E-0S  0.22812E-04  O.38407E-O2 

0.47954E-02  -0.14S90E-05  -0.19204E-01  0.20425E-04  0.517486-03  0.22812E-04  O.38404E-O2 

0.244926-07  -0.102146-04  -0.15221E-05  -0.14780E-05  0.400056-01  -0.52S4tE-04  -0.30742E-08  0.28945E-10  -0.35S45E-07 

0.24453E-07  0.18194E-04  0.15203E-05  0.14744E-0S  -0.400056-01  0.52332E-04  0.307496-08  -0.287586-10  0.355446-07 

0 . 14948E-05  -0.43927E-05  -0.43987E-04  0.489436*00  0.388106*00  0.145006*02  0.892186-07  0.721246-00  0. 444806-04 
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■  *  *  •  1 


Q.14751E-0S  -0.634S0E-05  -0.43932E-04  0.48943E»00  0.38810E*00  0.165006*02  0. 840116-07  0.712506-08  Q.62S9SE-04 


COL  10  -  If 

-0.19344E-01  -0 ,21025E*00  -0 . 387286-0 1  0.246546-04  0.17951E-04  0.10440E-07  0.S4048E-08  -0.22918E-08  -0.84498E-08 


0.193446-01  -0.2102SE*0Q  -0.387286-01  0.2*4596-04  0.174186- 

0 . S72Q*£-02  0.438276-02  -0.744076-02  0.412996-01  0.4S515E- 

0 . 372056-02  0.93829E-G2  -0.744096-02  0. *12996-01  0.*3516E- 

0.38*876-02  -0. 122946-01  0. 769*56-32  -0.57057E-04  0.214086- 

3.384866-02  -0. 122936-01  0. 7495*6-02  -0.5704 7E-04  0.21409E- 

3.355456-37  -0. 971596-07  -0.473606-07  -0.190576-08  -0.171586- 
2 . 355 boc- 07  0.970036-07  •. 473876-27  0.190206-08  0.171336- 

:.o4980E-04  -0.56  7886-^5  :.l?313£-:5  — ? . .58846-06  -0.597426- 

3 . 625956-0b  -0.S61916-C5  J.. 38616-75  -0.158346-04  -3.596906- 

«■*  ENTER  "l"  PGR  T I HE  RESPONSE  CalC.  • 

6NT6R  “0H  OTHERWISE. 


04  0.134796-07  0.457916-08  -0.22551E-08  -0.693946-08 
03  -0.30406E-07  -0.U2Q4E-07  0.425076-08  0.159836-07 
03  -0.304056-07  -0.162036-07  0.42510E-08  0.159O5E-07 
01  -0.562116-07  -0 . 2842  IE- 07  -0.298286-C8  0. 236616-07 
01  -0.161 08E-06  -0.103926-06  -0.26047E-08  0.634176-07 
■06  0.15267E-07  0.123696-07  -0.799906-10  -0.493956-08 
•06  -0. *53386-07  -0.12425E-07  0.79«306-10  1.405236-38 
••’5  -0 .8S64CE-  :2  -0.49rogE-.j-  730416-04  3 . 2 1 7522-12 
■05  -0.356376-02  -0.4O3O86-02  0. 780656-06  0. 317536-02 


0 
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